在Perl脚本结束之前始终执行一些代码

Question

如何设置在Perl脚本停止之前必须执行的代码？

在这里how to run piece of code just before the exit of perl script我读到了关于END子程序的内容，但只有在脚本正常结束时才会执行。但是，我希望代码也可以执行，例如，如果用户通过^ C中止程序。

Answer 1

捕获终止信号并重新路由它们，以便最简单的方法：

$SIG{TERM} = $SIG{INT} = $SIG{QUIT} = $SIG{HUP} = sub { die; };