让Perl返回正确的退出代码

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

导读：我在Ubuntu 11.04上使用Perl 5.10.1.我希望Perl执行一个 shell脚本并退出与 shell脚本退出相同的代码.但这对我来说不行 system($runCmd) or die("Failed to run "$runCmd": $!"); 我已经确认,运行“$runCmd”本身返回的退出代码为255,但是“die”子句没有

我在Ubuntu 11.04上使用Perl 5.10.1.我希望Perl执行一个 shell脚本并退出与 shell脚本退出相同的代码.但这对我来说不行

system($runCmd) or die("Failed to run "$runCmd": $!");

我已经确认,运行“$runCmd”本身返回的退出代码为255,但是“die”子句没有被调用.如何退出正确的代码或至少失败的非成功代码？

另一个较小的要求是我想要将$runCmd的输出打印到屏幕上.

解决方法

正如 perldoc -f die所说,die没有给出特定的退出代码(只有非零的退出代码).要得到你想要的东西,你需要这样的东西：

my $exit_code=system($runCmd);

if($exit_code!=0)
{
  print "Command $runCmd failed with an exit code of $exit_code.n";
  exit($exit_code >> 8);
}
else
{
  print "Command $runCmd successful!n";
}

（编辑：李大同）

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