标签: perl
在Perl中,如果Perl死了,我如何进行END子程序测试?
此代码工作正常并打印“RUNS”:
sub END {print "RUNS\n"} die "TESTING";
我检查什么变量以查看脚本是正常结束还是死亡?
我知道%SIG,但肯定会有更简单的答案吗?
答案 0 :(得分:10)
测试$?:
$?
END {print $? ? "DIED\n" : "RUNS\n"} die "TESTING";