将perl变量发送到命令并捕获输出

Question

我正在尝试将perl变量传递给系统命令，然后捕获输出以供以后使用，这是我当前的代码：

my $updatedCmd = "|svn diff --summarize $svnOldFull $svnNewFull";
my $updatedUrls = '';
open UPDATES, $updatedCmd or die "Can't get updates";
while(<UPDATES>) {
  print $_;
}

print "THIS_SHOULD_OUTPUT_AT_THE_END\n";

这个问题是我得到了输出：

THIS_SHOULD_OUTPUT_AT_THE_END
A       /test
A       /test2
A       /deployment.txt

我希望能够在允许我的perl脚本更进一步之前捕获所有命令输出。

Answer 1

更现代的方法是：

   my @cmd = qw(svn diff --summarize), $svnOldFull, $svnNewFull;
   open my $pipe, '-|', @cmd or die "oops: $!";
   while (<$pipe>) { ... }

好处

• 没有全局变量

• 打开模式与文件/命令分开

• 命令为数组，因此不需要shell引用

Answer 2

您将管道放在命令的错误一端。 尝试这个：

my $updatedCmd = "svn diff --summarize $svnOldFull $svnNewFull|";