如何正确捕获 unix 命令的返回值？答案

【问题标题】：How to properly capture the return value of a unix command?如何正确捕获 unix 命令的返回值？
【发布时间】：2013-08-15 22:18:35
【问题描述】：

我无法将 unix 命令的返回值放入 perl 变量中。

Unix 命令：

#nc -z 8.8.8.8 441; echo $?
1

Perl 命令：

#perl -e 'my $pstate=`nc -z 8.8.8.8 441; echo $?`; print $pstate;'
0

所以 perl 命令似乎得到了“无错误”的返回值？如何正确捕获 *nix 命令的返回值？

另一个例子：

#perl -e 'my $pstate=`ping -v 8.8.8.8 -c 1`; print $pstate;'
PING 8.8.8.8 (8.8.8.8) 56(84) bytes of data.

这会返回正确的值。那么我首先做错了什么？

【问题讨论】：

标签： perl shell return-value

【解决方案1】：

变量在反引号内插值，所以$? in

my $pstate=`nc -z 8.8.8.8 441; echo $?`

指的是 Perl 的 $?，而不是 shell 的 $?。而shell看到的是类似

nc -z 8.8.8.8 441 ; echo 0

要解决这个问题，您可以转义 shell 命令

my $pstate=`nc -z 8.8.8.8 441; echo \$?`;

或使用带有单引号的qx 运算符作为分隔符（这是“qx 运算符内插值”规则的一个例外）

my $pstate=qx'nc -z 8.8.8.8 441; echo $?';

或将readpipe 与非插值引用构造一起使用

my $pstate= readpipe( 'nc -z 8.8.8.8 441; echo $?' );
my $pstate= readpipe( q{nc -z 8.8.8.8 441; echo $?} );

【讨论】：

啊。我假设单引号会转义 ?
它们是反引号，与单引号不同。

【解决方案2】：

另一种方法是使用IPC::Run3，它“允许您运行子进程并将stdin、stdout 和/或stderr 重定向到文件和perl 数据结构”。

类似于系统，你可以检查 $?之后以各种方式，包括移动 8 以获得实际的退出代码，如下所示：

if ($? == -1) {
print "failed to execute: $!\n";
}
elsif ($? & 127) {
printf "child died with signal %d, %s coredump\n",
($? & 127), ($? & 128) ? 'with' : 'without';
}
else {
printf "child exited with value %d\n", $? >> 8;
}

此块取自http://perldoc.perl.org/functions/system.html 此处的系统文档，其中还提到了devnull 所说的内容。每当我关心的不仅仅是 qx 或系统的一件事时，我都会切换到 IPC::Run3，因为它可以轻松获取所有内容。

【讨论】：