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

Question

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

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

Answer 1

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

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