Ejecute algún código siempre antes de que finalice el script Perl

Question

¿Cómo puedo establecer un código que se debe ejecutar antes de que se detenga un script Perl?

Aquí how to run piece of code just before the exit of perl script Leí sobre la subrutina END, pero solo se ejecuta si la secuencia de comandos finaliza normalmente. Sin embargo, quiero que el código se ejecute también si, por ejemplo, el usuario cancela el programa con^C.

Answer 1

Trampa la señales de terminación y los re-ruta para algo, más simple sería:

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