从 Perl 中的命令获取返回码和输出

Question

我正在尝试编写一个实用程序，它将通过一个看起来像这样的文件：

# 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/ 下是否有过去 1 天内没有修改过的以“a”开头的文件，如果是这样，它将删除它们。

为此，我使用 find 命令。 例子：

my $command = "find " . $values[0] . $values[1] . " -mtime +" . $values[3] . " -delete ;\n";
system ($command);

但是，我被要求检索每个步骤的返回代码以验证每个步骤是否正常工作。

现在，我知道 system() 返回返回码，反引号返回输出。 但是，我怎样才能得到两者呢？

Answer 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";

Answer 2

反引号、system() 等的通用解决方案是使用${^CHILD_ERROR_NATIVE}变量。 查看 perlvar perldoc： http : //perldoc.perl.org/perlvar.html#%24%7b%5eCHILD_ERROR_NATIVE%7d

${^CHILD_ERROR_NATIVE} 由最后一个管道关闭、反引号 (`` ) 命令、成功调用 wait() 或 waitpid() 或从 system() 运算符返回的本机状态。 在类似 POSIX 的系统上，可以使用 POSIX 模块提供的 WIFEXITED、WEXITSTATUS、WIFSIGNALED、WTERMSIG、WIFSTOPPED、WSTOPSIG 和 WIFCONTINUED 函数对该值进行解码。