perl 线程池

 

 

#!/usr/bin/perl -w

use threads;

use threads::shared;

use Thread::Pool::Simple;

 

my $sum:shared;

$sum=0;

my $pool=Thread::Pool::Simple->new(

 min=>2,

 max=>3,

 load=>10,

 do=>[\&count],

 passid=>0,

 lifespan=>10000

);

 

my $i;

for($i=2;$i<=100000;$i+=100)

 {

   my $j=$i-100;

    $pool->add($j,$i);

 }

 

$pool->join();

 

print "$sum\n";

 

sub count()

 {

   my $start=shift;

   my $end=shift;

   my $tmp;

   for($tmp=$start;$tmp<$end;$tmp++)

     {

        $sum+=$tmp;

     }

 }