“怎么做？”；副端“；你知道这个程序已经死了吗？（Perl）

在Perl中，如果Perl已经死了，如何进行结束子例程测试

此代码运行良好并打印“运行”：

我应该检查哪个变量以查看脚本是否正常结束或终止

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

测试

$？

：

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

---

不完全是

perl-E'END{如果$？}退出，则说“死了”（1）；'打印不正确
无效
@帕维尔@barrycarter@ikegami：没错，但有人可能会说退出代码0和骰子非常相似。。。
END {print $? ? "DIED\n" : "RUNS\n"} 
die "TESTING";