前端之家收集整理的这篇文章主要介绍了
让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";
}
原文链接：https://www.f2er.com/Perl/171478.html
