将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引用