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

发布时间：2020-12-15 21:15:38 所属栏目：大数据来源：网络整理

导读：我使用以下行来进行简单的系统调用： system ("mkdir -p Purged") or die "Failed to mkdir." ; 执行脚本确实进行系统调用,我可以找到一个名为Purged的目录,但仍然会打印错误消息并且脚本会死掉.我的语法有什么问题？任何帮助深表感谢. 解决方法 That would

我使用以下行来进行简单的系统调用：

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

执行脚本确实进行系统调用,我可以找到一个名为Purged的目录,但仍然会打印错误消息并且脚本会死掉.我的语法有什么问题？

任何帮助深表感谢.

解决方法

That would be a little confusing,wouldn’t? – Leonardo Herrera on 07000

是的,令人困惑的是系统命令在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系统调用很傻,但这是我能想到的第一个例子).

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

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

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!