sommeil Perl terminé par SIGCHLD

Question

#!/usr/bin/perl 

use POSIX ":sys_wait_h"; 
$SIG{CHLD} = \&REAPER; 

sub REAPER { 
    my $pid; 
    while (($pid = waitpid(-1, WNOHANG)) > 0) { 
     print "where is here,$pid\n"; 
    } 
} 

sub child { 
    print "I'm child, pid=$$.\n"; 
    sleep 2; 
} 

$lid = fork(); 
if ($lid == 0) { 
    &child; 
    exit; 
} else { 
    sleep 1000; 
    print "I am parent, child pid : $lid\n"; 
} 

Sortie:

I'm child, pid=11839. 
where is here,11839 
I am parent, child pid : 11839 

Ce qui précède est mon script Perl. La sortie est bonne, mais une chose étrange est qu'il imprime I am parent, child pid : 11839 immédiatement après la dernière sortie. Pourquoi le sleep 1000 n'a-t-il aucun effet?

Answer 1

S'il vous plaît toujoursuse strict et use warnings, et déclarer vos symboles en utilisant my à leur point de définition. Cela est particulièrement vrai lorsque vous demandez de l'aide, car ces mesures peuvent révéler des bugs simples qui sont par ailleurs facilement passer inaperçue

sleep est mis en œuvre à l'aide setitimer pour demander un SIGALRM après un intervalle spécifié, puis pause de suspendre le processus jusqu'à ce qu'il reçoit le signal. Mais si un SIGCHLD vient en premier, le processus sera également réactivé.

Le masque de signal ne peut pas être réglé pour éviter cela sinon la SIGCHLD n'obtiendraient viabilisé

Answer 2

Ceci est documented: « Peut être interrompu si le processus reçoit un signal ». Le but est de permettre aux gestionnaires de signaux de fonctionner. Il suffit de se rendormir si ce n'est pas le moment de se réveiller.

use Time::HiRes qw(time sleep); # Optional. 

sub unint_sleep($) { 
    my $sleep_til = time + $_[0]; 
    for (;;) { 
     my $sleep_dur = time - $sleep_til; 
     last if $sleep_dur <= 0; 
     sleep($sleep_dur); 
    } 
}