in reply to Odd Parallel::ForkManager behavior
#! c:/perl/bin/perl.exe -w use strict; use Parallel::ForkManager; my @ary = (1..100); my $count = 1; my $pm = new Parallel::ForkManager(30); foreach my $val (@ary) { $count++; $pm->start and next; print "Working on $val (count: $count)\n"; open(ARY, ">child$count") or die $!; print ARY "$val, $count"; close ARY; $pm->finish; }
|
|---|