我使用以下行来进行简单的系统调用：
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为您提供的代码允许您测试系统命令的输出,以确切了解发生的情况. (如果出现错误,或系统中断信号导致系统调用失效).很高兴知道您是否需要询问系统返回值以找出问题所在.