Parallel::ForkManager模块简介和使用代码

Parallel::ForkManager 使用很方便，贴一段测试代码，应该就会基本的使用了：

使用这个模块做并发实在是很方便，

其实perl5.10以前的版本中的线程和进程在系统级来看是没有多大区别的。

这个文章不错：http://www.ibm.com/developerworks/cn/linux/l-cn-perlmp/index.html

#!/usr/bin/perl

use warnings;
use strict;
use Parallel::ForkManager;
my $max_process = 20;
my $pm = new Parallel::ForkManager( $max_process );
foreach(1..100){
        $pm->start and next;
        &cmd($_);
        $pm->finish;
}
$pm->wait_all_children;
sub cmd{


      my $da=time();
      print "$_[0] $da\n";
      sleep 1;

}