process defunct avec fork et exec
Hello
J'ai un soucis avec un script perl que j'essaie de faire, qui fait un fork de lui-même, pour calculer son temps d'execution (en gros, l'idée étant de faire une action si le temps est supérieur ou inférieur à un temps défini, mais sans attendre la fin de l'execution si c'est plus long que prévu)
Le code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
#!/usr/bin/perl
$cmd = "sleep 20 ";
my $pid;
defined($pid = fork()) or die "unable to fork: $!\n";
if ($pid == 0) { #parent
exec($cmd);
die ;
}
else { #child
$time=0;
while(1) {
$rc = system("ps -p".$pid." 2>&1 >/dev/null" );
if($rc==0){
print "pid $pid still running after $time seconds\n";
}
else{
print "pid $pid running after $time seconds\n";
exit;
}
$time+=5;
sleep 5;
}
} |
quand je lance, tout va bien jusqu'à 20 secondes, puis le process sleep passe en defunct, et le process parent attend dans le vide.
pour l'instant, c'est sur du linux, mais il faudrait que ca marche également sous windows... si possible
Idéalement, quand le script parent "sleep 20" se finit, j'aimerais obtenir son return code...
Une idée ?
merci !
