Perl：系统调用成功后,“或死”命令仍然会结束脚本

system ("mkdir -p Purged") or die "Failed to mkdir." ;

是的,令人困惑的是系统命令在Perl中反转true和false,并创建有趣的逻辑,如下所示：

if ( system qw($command) ) {
    die qq(Aw... If failed);
}
else {
    say qq(Hooray! It worked!);
}

但是,系统命令执行此操作的原因是可以理解的.在Unix中,退出状态为零意味着程序正常工作,非零状态可以为您提供系统调用失败的原因.也许你打电话的程序不存在.也许这个程序按预期工作.例如,当grep工作时,grep返回退出代码1,但没有匹配的行.您可能希望区分grep何时返回零,一或大于一的返回码. (是的,我知道在Perl程序中使用grep系统调用很傻,但这是我能想到的第一个例子).

为了防止偶然的混淆,我创建了一个变量来保存系统命令的退出状态,而不是直接测试系统的输出：

@H_849_2@my $error = system qw($command); if ($error) { die qq(Aw... It failed); } else { say qq(Hooray! It worked!); }

这完全是不必要的,与Perl一起工作的人应该知道该系统会颠倒Perl对真假的定义,但如果我早上没有喝咖啡,我可能会错过它,因为我会查看其他人的代码.做这个小步骤只会使程序看起来更合乎逻辑.

system的Perldoc为您提供的代码允许您测试系统命令的输出,以确切了解发生的情况. (如果出现错误,或系统中断信号导致系统调用失效).很高兴知道您是否需要询问系统返回值以找出问题所在.