谁能简介一下perl ithreads how to 控制进程

debianchina

我写了一个perl 多进程程序，但是不能控制进程数目。
#!/usr/bin/perl

#代理验证小程序
use warnings;
use strict;
use threads;
use threads::shared;
my $k: shared = -1;
use LWP::UserAgent;
use vars qw( %config );
%config = ( MaxLength =>; 1*1024, # fetch file max 1K
RequestTimeOut =>; 30, # set timeout to 30s

);
#my $file=shift @ARGV;
my $file="verygood.txt";
my @ip;
open (OUTPUT,"$file"||die "could not open file";
while (<OUTPUT>{
push @ip,$_;
}

#my $ip="169.237.37.2:80";
#my $url="http://www.whatismyip.com/";
open (GOODIP,">;>;goodproxyip.txt";
my $url="http://www.edpsciences.com/htbin/ipaddress";
my $thr1;
my $thr2;
my $thr3;
my $thr4;
my $thr5;
while($k<@ip){
#$thr1 = threads->;new(\&amp;checkproxy,$ip[$k]);
$thr2 = threads->;new(\&amp;checkproxy,$ip[++$k]);
$thr2 = threads->;new(\&amp;checkproxy,$ip[++$k]);
$thr2 = threads->;new(\&amp;checkproxy,$ip[++$k]);
$thr2 = threads->;new(\&amp;checkproxy,$ip[++$k]);
$thr2 = threads->;new(\&amp;checkproxy,$ip[++$k]);
#$k++;
#$thr->;detach;
$thr2->;join;
}
# $thr1->;detach;




sub checkproxy{
my $ip=shift @_;
print "now check $ip\n";
my $ua=new LWP::UserAgent;
$ua->;agent("Mozilla/8.0";
$ua->;timeout( $config{RequestTimeOut} );
$ua->;max_size( $config{MaxLength} );
my $request=new HTTP::Request ('GET'=>;$url);
$ua->;proxy(['http', 'ftp'], "http://$ip/";
#$request->;header('Accept'=>;'text/html');
#$request->;header('Accept'=>;'text/plain');
my $response=$ua->;request($request);
if ($response->;is_success){
my $content=$response->;content;
print $ip."\n";
print GOODIP $ip."head\n";
if ($content=~/Your IP address is/i){
print GOODIP $ip."\n";
}

print $content;
}
}

apile

用array取代thr1,thr2,thr3.....
perl的array可以隨時增加...只要限定
@array不要太大就好了...
MultiThread..我幾乎沒用過...

ocean2000

好象还可以通过循环次数来控制thread数目