Puis-je définir un seul gestionnaire de signal pour tous les signaux en Perl?

Question

Est-il possible en Perl d'installer un seul gestionnaire de signal pour tous les signaux qu'il reçoit? La raison derrière ceci est, je ne suis pas au courant du signal que mon code Perl obtiendra à l'exécution. Une façon que je peux voir est ce point tous les signaux disponibles à mon gestionnaire de signal personnalisé, mais je ne veux pas aller de cette façon. Y a-t-il un moyen facile de faire cela? quelque chose comme:

$SIG{'ALL'} = 'sigHandler'; 

Answer 1

Vous vraiment ne veulent pas le faire. Installez uniquement des gestionnaires de signaux pour les signaux que vous devez gérer différemment de ceux par défaut (ce que nous ne pouvons pas vous aider car vous ne mentionnez pas le type d'application que vous écrivez).

Dans la plupart des cas, vous n'avez pas du tout à écrire des gestionnaires de signaux - les paramètres par défaut sont configurés pour faire exactement ce dont vous avez besoin. Vous devriez lire perldoc perlipcmaintenant afin que vous sachiez quels cas vous avez qui diffèrent de la normalité.

Vous pouvez modifier plus d'un signal à la fois avec le sigtrap pragma: il est utile pour ajouter des gestionnaires pour des signaux normalement non décomprimés, ou pour rendre la gestion des erreurs normales plus stricte.

# install a trivial handler for all signals, as a learning tool 
use sigtrap 'handler' => \&my_handler, 'signal'; 
sub my_handler 
{ 
    print "Caught signal $_[0]!\n"; 
} 

Answer 2

Du haut de ma tête,

foreach my $key (keys %SIG) { 
    $SIG{$key} = \&sighandler 
} 

Ceci est probablement une mauvaise idée bien. Vous devriez seulement attraper tous les signaux que vous savez que vous pouvez manipuler. Des signaux différents ne doivent pas tous être traités de la même manière. Voulez-vous vraiment que SIGINT soit traité de la même manière que SIGCHILD par exemple? SIGHUP? SIGUSR1?

Answer 3

 
$SIG{$_} = 'sigHandler' for keys %SIG; 

Si vous voulez traiter __WARN__ et __DIE__ différemment,

use Config; 
$SIG{$_} = 'sigHandler' for split ' ', $Config{sig_name};