如何在 Perl 中使用反引号捕获两个不同变量中的 STDOUT 和 STDERR

假设我想从带有反引号的脚本中运行外部程序，同时我想捕获 STDOUT 和 STDERR，但在两个不同的变量中。我怎样才能做到这一点？例如，如果我运行这个脚本......

my $cmd = `snmpwalk -v $version -c $community $hostname $oid`;

...如果没有错误，一切正常，但如果命令引发错误，此错误将打印在命令行上，我不希望发生这种情况。我也想捕获错误。屏幕上不需要打印任何内容。有任何想法吗？

你不必一路走来open3，IIRC仅适用于需要读取和写入外部命令的情况，即使这样也有其他方法。

对于你的问题我建议使用Capture::Tiny http://p3rl.org/Capture::Tiny，它可以从其块内运行的任何内容捕获（甚至发球）STDOUT 和 STDERR。例如，根据您的问题：

#!/usr/bin/env perl

use strict;
use warnings;

use Capture::Tiny qw/capture/;

...

my ($stdout, $stderr) = capture {
  system ( "snmpwalk -v $version -c $community $hostname $oid" );
};

另一个例子考虑这个功能代码：

#!/usr/bin/env perl

use strict;
use warnings;

use Capture::Tiny qw/capture/;

my ($stdout, $stderr) = capture {
  system ( "echo 'hello'" );
  system ( "date" );
  warn "Arg1!";
};

print "STDOUT:\n$stdout";
print "STDERR:\n$stderr";

这刚刚给了我：

STDOUT:
hello
Mon Dec 19 23:59:06 CST 2011
STDERR:
Arg1! at ./test.pl line 11.