perl - 总是在 Perl 脚本结束之前执行一些代码

Question

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

在这里如何在 perl 脚本退出之前运行一段代码，我读到了 END 子例程，但它只有在脚本正常结束时才会执行。但是，例如，如果用户通过 ^C 中止程序，我也希望执行代码。

Answer 1

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

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