论坛 › Perl › perl 线程池

jiang1799 发表于 2018-8-31 09:08:42

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;$iadd($j,$i);
　　}
　　$pool->join();
　　print "$sum\n";
　　sub count()
　　{
　　my $start=shift;
　　my $end=shift;
　　my $tmp;
　　for($tmp=$start;$tmp

查看完整版本: perl 线程池