如何测试 IPC::Run3 的退出状态

我正在尝试测试 Perl 模块 IPC::Run3 但难以检查命令是否失败或成功。
我知道如果 IPC::Run3 的参数有问题，它会发出退出代码，但是如果参数没问题但命令不存在怎么办？我如何测试以下示例？

有一个子程序来调用 Run3

sub runRun3 {

    my $cmd = shift;
    my ($stdout, $stderr);

    run3($cmd, \undef, \$stdout, \$stderr);

#   if( $? == -1 ) {
    if (! $stdout and ! $stderr) {
        die "Something is wrong";
    } else {
        print "OK \n";
    }

}

当命令$cmds[0]下面被执行（ls*nix 系统的命令）它打印OK正如预期，但有命令$cmds[1]它只是说No such file or directory at ./testrun3.pl line 18。 通过对退出代码的测试，我希望它打印出来Something is wrong反而。

#!/usr/bin/perl

use warnings;
use strict;

use IPC::Run3;

my @cmds = qw(ls silly);

runRun3($cmds[0]);
runRun3($cmds[1]);

或者在这种情况下 IPC::Run3 的最佳替代方案是什么？这只是过程的过度简化，但最终我想捕获 STDERR 和 STDOUT 以应对更复杂的情况。

Thanks.

有几点需要经过。

首先，对于直接问题，IPC::运行3文档告诉我们

run3如果包装则抛出异常system回电-1或者出了什么问题run3文件句柄的处理。否则返回 true。它离开$?完好无损，用于检查退出和等待状态。

您询问的错误属于此类错误，您需要eval捕获该异常的调用

use warnings 'all';
use strict;
use feature 'say';

my ($stdout, $stderr);

my @cmd = ("ls", "-l");

eval { run3 \@cmd, \undef, \$stdout, \$stderr };
if    ( $@        ) { print "Error: $@";                     }
elsif ( $? & 0x7F ) { say "Killed by signal ".( $? & 0x7F ); }
elsif ( $? >> 8   ) { say "Exited with error ".( $? >> 8 );  }
else                { say "Completed successfully";          }

您现在可以在里面打印自己的消息if ($@) { }块，当底层发生错误时system执行失败。例如当调用一个不存在的程序时。

Here $@涉及到eval while $? to system. So if run3没有问题并且$@是 false 接下来我们检查状态system本身，因此$?。来自文档

请注意，真实的返回值来自run3并不意味着该命令 有成功的退出代码。因此你应该经常检查$?.

对于变量$@ and $? see perlvar 中的通用变量, and system and eval pages.

最小版本是删除eval (and $@检查）并期望程序die if run3有问题，什么应该是罕见的，并检查（并打印）的值$?.

注释run3界面。和\@cmd它期望@cmd包含分解为单词的命令，第一个元素是程序和其余参数。在字符串中写入命令之间存在差异，支持$cmd接口，并在一个数组中。看system进行解释。

哪种选择最适合您取决于您​​的具体需求。这里有一些选项。也许先尝试一下IPC::系统::简单（但不是STDERR放在盘子里）。用于干净地捕获各种输出捕获::微小是很棒的。另一端有IPC::Run为了获得更多的力量。