parallel::ForkManager

最新推荐文章于 2022-07-19 18:22:47 发布

weixin_30885111

最新推荐文章于 2022-07-19 18:22:47 发布

阅读量501

点赞数

原文链接：http://www.cnblogs.com/xlai/p/6597700.html

版权

use Parallel::ForkManager;

my $MAX_PROCESSES=10;   #申明最大进程数（一次创建的进程越多，越耗内存）；
my $pm = new Parallel::ForkManager($MAX_PROCESSES);     #创建一个实例；

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

转载于:https://www.cnblogs.com/xlai/p/6597700.html