in reply to Fork limited childs and passing parameters
use Proc::Queue size => 4, qw(run_back waitpids); my @pids; for my $source (@sourceids) { push @pids, run_back { callScan($source); }; } waitpids(@pids);
|
---|
In Section
Seekers of Perl Wisdom
in reply to Fork limited childs and passing parameters
use Proc::Queue size => 4, qw(run_back waitpids); my @pids; for my $source (@sourceids) { push @pids, run_back { callScan($source); }; } waitpids(@pids);
|
---|