Comment attraper et gérer un signal en Perl?

Question

Existe-t-il un moyen de capturer une erreur et de sortir de Perl avec élégance? Je travaille sur un script qui pourrait échouer à cause d'un événement SIG du système d'exploitation ou d'autres applications s'exécutant sur mon serveur. Je souhaite intercepter cet événement, afficher l'erreur et quitter après avoir fermé tous les fichiers et autres attributs ouverts lors de l'exécution du script.

Answer 1

Utilisez l’empreinte% SIG pour installer les gestionnaires de signaux. Exemple:

$ SIG {INT} = 'SigIntHandler';

Où SigIntHandler est un sous-nom que vous écrivez pour être appelé lorsqu'une interruption est interceptée.

Answer 2

Voir perldoc sigtrap .