¿Cómo puedo atrapar y manejar una señal en Perl?

Question

¿Hay alguna forma de atrapar un error y salir con gracia de Perl? Estoy trabajando en un script que puede fallar debido a un evento SIG del sistema operativo u otras aplicaciones que se ejecutan en mi servidor. Deseo atrapar este evento, mostrar el error y salir después de cerrar todos los archivos y otros atributos que he abierto durante la ejecución del script.

Answer 1

Use el hash% SIG para instalar manejadores de señal. Ejemplo:

$ SIG {INT} = 'SigIntHandler';

Donde SigIntHandler es un sub que escribe para que se llame cuando se detecta una interrupción.

Answer 2

Ver perldoc sigtrap .