使用Parallel::ForkManager编写多进程程序

ForkManager下载地址：
http://search.cpan.org/~dlux/Parallel-ForkManager-0.7.5/ForkManager.pm
fork函数创建进程
关于使用fork创建进程网上有很多优秀的实例，这里粘贴一例，演示新怎样创建一个新的进程：http://fuzhong1983.blog.163.com/blog/static/1684705201112405432663/
------------------------------------------
下面一段程序的作用是每隔1s创建一个新的进程，每个新创建的进程的作用是sleep(5)
use strict;use warnings;
for (my $i = 0; $i < 10; $i ++) {
      ## ==创建一个新的进程 ==
      my $pid = fork();
#如果创建失败，退出程序（ps：搞不明白，既然创建了，还能失败）    
       if (!defined($pid)) {
              print "Error in fork: $!";             
              exit 1;
      }
      if ($pid == 0) {
              ## == child proc ==
              print "Child $i : My pid = $$n";
              sleep(5);
              print "Child $i : endn";
              exit 0;
      }
      sleep(1);
}
exit 0;
关于进程的收割以及进程数量的控制，这里就不详述了。因为下面将要介绍一种更简单的控制进程的方法。

使用ForkManager创建并控制线程
先上实例,一句一句分析；
use Parallel::ForkManager;   #申明模块；
use strict;use warnings;
my $MAX_PROCESSES=10;     #申明最大进程数（一次创建的进程越多，越耗内存）；
my $pm = new Parallel::ForkManager($MAX_PROCESSES);         #创建一个实例；

#共有50个任务需要处理，系统中始终保持处理的进程数为10；
for(my $i=1;$i<=50;$i++){
       #创建一个新进，使用next语句，进入下一个循环。每个进程的任务就是调用SLEEP函数
       #当创建的进程数达到设定的阈值（10）时，主进程等待，知道有子进程运行完毕，新的进程将被创建；
       my $pid = $pm->start and next; 
       &SLEEP;
       $pm->finish;             #收割进程；
}
$pm->wait_all_children;   #不知道为什么会有这句，但是是必须的；

sub SLEEP
{       sleep(5);
}
使用ForkManager创建进程，算是比较省心的了，我们不用管怎么来控制进程数量，怎么等待进程结束然后收割进程。当每个进程执行时间不一致时，ForkManager控制新建的进程逐一添加，最大化利用CPU。