让Perl返回正确的退出代码

前端之家收集整理的这篇文章主要介绍了让Perl返回正确的退出代码前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我在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";
}

猜你在找的Perl相关文章