Pourquoi est-ce que je reçois un code de retour inattendu?

Question

J'ai un script Perl avec le code suivant.

... 
$kill = 1; 
$exit = 0; 
`kill -9 $pid >& /dev/null`; 
... 
print "kill=$kill exit=$exit\n"; 
if ($kill) { 
    exit $exit; 
} else { 
... 

En résumé, ce script utilise open3() pour exécuter une commande. À un certain point, il tue le travail et l'intention est que le script se termine avec le code 0. J'ai inséré une instruction d'impression pour montrer les valeurs des variables $kill et $exit, qui est montrée ci-dessous.

kill=1 exit=0 

Depuis $kill est 1, j'attendre le script pour sortir avec le code 0 ci-dessus, puisque $exit est 0. Cependant, le script sort avec le code 9, qui est le signal envoyé à l'enfant. Pourquoi le script Perl se ferme-t-il avec le code de sortie de l'enfant, au lieu de celui qui est donné à l'appel exit()?

Answer 1

De here:

La fonction exit() ne sort pas toujours immédiatement. Il appelle d'abord toutes les routines END définies, mais ces routines END ne peuvent pas elles-mêmes annuler la sortie. De même, tous les destructeurs d'objets qui doivent être appelés sont appelés avant la sortie réelle.