У меня есть script, который порождает набор детей. Родитель должен ждать завершения каждого из них.
My script выполняет аналогично следующему perl script:
#! /usr/bin/perl
use strict;
use warnings;
print "I am the only process.\n";
my @children_pids;
for my $count (1..10){
my $child_pid = fork();
if ($child_pid) { # If I have a child PID, then I must be the parent
push @children_pids, $child_pid;
}
else { # I am the child
my $wait_time = int(rand(30));
sleep $wait_time;
my $localtime = localtime;
print "Child: Some child exited at $localtime\n";
exit 0; # Exit the child
}
}
foreach my $child (@children_pids) {
print "Parent: Waiting on $child\n";
waitpid($child, 0);
my $localtime = localtime;
print "Parent: Child $child was reaped - $localtime.\n";
}
print "All done.\n";
Как и в приведенном выше коде, каждый ребенок может занять другое время.
Проблема заключается в том, что когда я пытаюсь пожинать детей, перебирая дочерние PID, в этом последнем блоке foreach
, родитель ждет детей в том порядке, в котором они созданы.
Очевидно, что дети не заканчиваются в порядке, в котором они рождаются, и поэтому я остаюсь с кучей процессов зомби для детей, которые заканчиваются раньше.
В моем фактическом коде эти дети могут заканчивать дни друг перед другом, а число процессов зомби, плавающих вокруг, может вырасти в сотнях.
Есть ли лучший способ получить набор детей?