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

Question

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

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

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

Answer 1

system返回它调用的命令的退出状态.在shell中,零退出状态意味着成功.你必须颠倒逻辑:

0 == system qw(mkdir -p Purged) or die "Failed to create the dir\n";

Answer 2

那会有点混乱,不是吗？- 池上的 Leonardo Herrera 回答

是的,令人困惑的是,该system命令在Perl中反转了true和false,并创建了这样的有趣逻辑:

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

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

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

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

这是完全没有必要的,谁用Perl工作的人应该知道,system逆转的Perl的定义真和假,但如果我还没有我的早晨咖啡,我可能会错过它,因为我去了别人的代码.这个小步骤只是使程序看起来更合乎逻辑.

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

Answer 3

system0成功回报,所以你想要and而不是or.

也可以看看: use autodie qw( system );