Question

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

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

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

Answer 1

您无需一直前往open3，IIRC仅适用于需要读取和写入外部命令的情况，即使这样，也有其他方法。

对于你的问题，我建议使用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.

Answer 2

使用反引号执行此操作的唯一方法是重定向到shell命令中的文件：

   my $cmd = `snmpwalk -v $version -c $community $hostname $oid 2>error.dat`;

如果要在脚本中捕获STDERR，则需要IPC::Open3而不是反引号

Answer 3

在Perl常见问题解答中，您有不同的选项，具体取决于您希望如何继续：

http://perldoc.perl.org/perlfaq8.html#How-can-I-capture-STDERR-from-an-external-command%3f

Answer 4

IO::CaptureOutput

是您想要做的非常方便的包装器。

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

4 个答案: