“sub END”如何知道程序已经死亡? (Perl的)

时间:2011-06-10 15:16:07

标签: perl

在Perl中,如果Perl死了,我如何进行END子程序测试?

此代码工作正常并打印“RUNS”:

sub END {print "RUNS\n"} 
die "TESTING"; 

我检查什么变量以查看脚本是正常结束还是死亡?

我知道%SIG,但肯定会有更简单的答案吗?

1 个答案:

答案 0 :(得分:10)

测试$?

END {print $? ? "DIED\n" : "RUNS\n"} 
die "TESTING";