"sub END"如何知道程序已经死亡？(Perl的)

Question

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

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

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

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

我知道%SIG,但肯定有一个更简单的答案吗？

Answer 1

测试$?:

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