Parallel::ForkManager 快速创建子进程

Parallel::ForkManager - A simple parallel processing fork manager
http://search.cpan.org/~dlux/Parallel-ForkManager-0.7.5/ForkManager.pm

#!/usr/bin/perl 
use strict;
use warnings;
use Parallel::ForkManager;
my $max = 10;
my $pm = Parallel::ForkManager->new($max);

foreach(1..10){
 my $pid = $pm->start and next;
 print "Child process $$\n";
 $pm->finish;
}
$pm->wait_all_children;

$max: 能创建的最大进程数
start and next: 主程序中跳出本次循环