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 "$sumn";

?

sub count()

?{

?? my $start=shift;

?? my $end=shift;

?? my $tmp;

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

???? {

??????? $sum+=$tmp;

???? }

?}