"sub END"怎么知道程序已经死了？(珀尔)

Question

在Perl中，如果Perl已经失效，我如何进行END子例程测试？

此代码运行良好，并打印"RUNS"：

sub END {print "RUNSn"} 
die "TESTING"; 

我应该检查哪个变量来查看脚本是正常结束还是终止？

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

Answer 1

测试$?:

END {print $? ? "DIEDn" : "RUNSn"} 
die "TESTING";