Perl Thread::Pool::Simple demo

2017-01-24 20:34:48来源:CSDN作者:u011403813人点击

perl CPAN : Pool::Simple具体可查询该连接, 不过也没啥可查的,没有API这些信息,不知道是怎么回事的。就直接上demo

代码块

use threads;  # thread  use threads::shared; use Thread::Pool::Simple;my $sum:shared; #线程之间共享该变量$sum = 0;my $pool = Thread::Pool::Simple->new(    min => 2, # 最小线程数    max => 3, # 最大线程数    load => 10, #每当有10个job处于等待的时候增加线程    do => [/&count], #job handler for each worker    passid => 0, #whether to pass the job id as the first argument to the $do-handle    lifespan => 10000, #total jobs handled by each worker    );my $i;for ($i=1 ; $i<= 10;$i+=1){    $pool->add($i);}$pool->join(); #等待所有线程完成,该操作时阻塞的print "$sum/n";sub count(){    my $start = shift;        $sum+=$start;}

最新文章

123

最新摄影

闪念基因

微信扫一扫

第七城市微信公众平台