提问人：coconut 提问时间：10/1/2015 更新时间：4/27/2020 访问量：12842
从 Perl 中的命令获取返回代码和输出
Get return code and output from command in Perl
问：
我正在尝试编写一个实用程序，该实用程序将遍历一个看起来像这样的文件：
# Directory | file name | action | # of days without modification to the file for the command to take action
/work/test/|a*|delete|1
/work/test/|b*|compress|0
/work/test/|c*|compress|1
例如，我的脚本将遍历该文件，以确定 /work/test/ 下是否有以“a”开头的文件在过去 1 天内未被修改，如果是，它将删除它们。
为此，我使用 find 命令。例：
my $command = "find " . $values[0] . $values[1] . " -mtime +" . $values[3] . " -delete ;\n";
system ($command);
但是，我被要求检索每个步骤的返回代码，以验证每个步骤是否正常工作。
现在，我知道 system（） 返回返回代码，而反引号返回输出。但是，我怎样才能同时获得两者呢？
答：
15赞
mob
10/1/2015
#1
运行反引号后，返回代码在 $？.
$?由最后一个管道关闭、反引 （''） 命令、成功调用 wait（） 或 waitpid（） 或从 system（） 运算符返回的状态。这只是传统的 Unix wait（） 系统调用返回的 16 位状态字（或者被编成看起来像它）。
$output = `$some_command`;
print "Output of $some_command was '$output'.\n";
print "Exit code of $some_command was $?\n";
评论
3赞
ikegami
10/1/2015
提示：所有 、（反引号）并设置 .systemreadpipewaitwaitpid$?
0赞
Sobrique
10/1/2015
另请注意 - 它不一定是命令的返回代码 - 您可能需要对其进行位移。
1赞
ikegami
10/1/2015
文档演示了如何从 中添加不同的值。system$?
3赞
Andrew Yochum
10/1/2015
#2
backticks、system（） 等的通用解决方案是使用变量。参见 perlvar perldoc： http://perldoc.perl.org/perlvar.html#%24%7b%5eCHILD_ERROR_NATIVE%7d${^CHILD_ERROR_NATIVE}
${^CHILD_ERROR_NATIVE} 由最后一个管道关闭、反引号 （'' ） 命令、成功调用 wait（） 或 waitpid（） 或从 system（） 运算符返回的本机状态。在类似 POSIX 的系统上，可以使用 POSIX 模块提供的 WIFEXITED、WEXITSTATUS、WIFSIGNALED、WTERMSIG、WIFSTOPPED、WSTOPSIG 和 WIFCONTINUED 函数解码此值。
评论
0赞
mob
10/1/2015
在 perl 5.8.9 中引入
下一个：将列表中的所有项目相互相减
评论
findunlinkfind