my @list = (1..2000); my $kids = 20; my $num_per_kid = int (@list / 20); for my $chld (1..$kids) { my @tmp = @list[(($chld-1)*$num_per_kid)..($chld==$kids ? $#list : $c +hld*$num_per_kid)]; if (fork) { for my $item (@tmp) { print "$_\n"; } } }
In reply to Re: controling the num of fork sessions
by repson
in thread controling the num of fork sessions
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |