走向并行系列之-使用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。