![]() |
|
Perl-Sensitive Sunglasses | |
PerlMonks |
Many children, but never more than a fixed number at once.by Abigail-II (Bishop) |
on Jun 19, 2002 at 15:01 UTC ( #175715=snippet: print w/replies, xml ) | Need Help?? |
sub mfork ($$&) { my ($count, $max, $code) = @_; foreach my $c (1 .. $count) { wait unless $c <= $max; die "Fork failed: $!\n" unless defined (my $pid = fork); exit $code -> ($c) unless $pid; } 1 until -1 == wait; } sub afork (\@$&) { my ($data, $max, $code) = @_; my $c = 0; foreach my $data (@$data) { wait unless ++ $c <= $max; die "Fork failed: $!\n" unless defined (my $pid = fork); exit $code -> ($data) unless $pid; } 1 until -1 == wait; }
|
|