perl - 在 perl 中捕获 shell 退出代码

Question

我正在使用 open 3 使用 perl 执行 shell 命令

   local ( *HANDLE_IN, *HANDLE_OUT, *HANDLE_ERR );

    my $pid = open3( *HANDLE_IN, *HANDLE_OUT, *HANDLE_ERR, @cmd_args ); 

其中@cmd_args = 我的 shell 命令

我的外壳返回以下退出代码

0: command executed successfully

>0: error in executing the command

如何在我的 perl 中捕获 shell 的退出代码？

Answer 1

这很简单，只需看看旧的 perldoc：

$pid = open3(\*CHLD_IN, \*CHLD_OUT, \*CHLD_ERR,
    'some cmd and args', 'optarg', ...);

my($wtr, $rdr, $err);
use Symbol 'gensym'; $err = gensym;
$pid = open3($wtr, $rdr, $err,
    'some cmd and args', 'optarg', ...);

waitpid( $pid, 0 );
my $child_exit_status = $? >> 8;

$child_exit_status然后包含执行的程序的状态。

另一种使用方法是${^CHILD_ERROR_NATIVE}我正在使用的方法，尤其是在通过反引号执行外部命令时：

my $fancyresult = `ls -lsahR /`;

if (${^CHILD_ERROR_NATIVE} != 0) {
    ...

Answer 2

您最终需要使用waitor来收割孩子waitpid。当你这样做时，$?将设置如下。

waitpid($pid, 0);
die "Can't waitpid: $!" if $? < 0;
die "Child killed by signal ".( $? & 0x7F ) if $? & 0x7F;
die "Child returned error ".( $? >> 8 ) if $? >> 8;
print "Child ran successfully!\n";  # if $? == 0