如何在Perl中将输出保存到变量

Question

我有一个Perl脚本，它将一个参数传递给powershell并将数据返回给Perl。该值存储，但我想将该值赋给变量，我不知道该怎么做。

sub getvalue{
print "Getting value...\n";
my $renamecmd = 'Powershell.exe -executionpolicy remotesigned -File  C:\Workspace\Utilities\pathtofile.ps1'." $val"; 
my @output = `$renamecmd`;
foreach (@output) {
return $_;
}
}  

$newvar = $_;

我上面的内容不起作用。

Answer 1

这是我的解决方案。

sub getValue{
    print "Getting value...\n";
    my $renamecmd = 'Powershell.exe -executionpolicy remotesigned -File C:\Workspace\Utilities\pathtofile.ps1'." $var";
    my @output = `$renamecmd`;
    $newvar= $output[3];
}

同样，这只是一个模型，具有可怕的变量名称。