如何设置必须在Perl脚本停止之前执行的代码？
在这里how to run piece of code just before the exit of perl script我读到了关于END子程序,但它只在脚本正常结束时执行.但是,如果用户通过^ C中止程序,我也希望执行代码.
解决方法
捕获终止信号并重新路由它们,以便最简单的方法：
$SIG{TERM} = $SIG{INT} = $SIG{QUIT} = $SIG{HUP} = sub { die; };