“sub END”如何知道程序已经死亡？ （Perl）

Question

在Perl中，如果Perl死了，我该如何做END子例程测试？

此代码工作正常，并打印“流程”：

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

我检查什么变量看剧本正常结束还是死了？

我知道％SIG，但肯定有更简单的答案吗？

Answer 1

测试$?：

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