Kick off multiple processes simulataneously in Perl.
my $num = 10;
my @children;
for (my $i = 0; $i < $num; $i++) {
my $pid = fork();
if ($pid) { # parent
push @children, $pid;
} elsif ($pid == 0) { # child
print "child $i\n";
sleep 5;
exit;
} else {
print STDERR "couldn't fork\n";
}
}
foreach my $child (@children) {
waitpid($child, 0);
}
Tags: Forking