Perl多线程目录扫描

#!/usr/bin/perl
use HTTP::Request;
use LWP::UserAgent;
use Getopt::Long;
use threads;
use Thread::Semaphore;
use Socket;

print "-------------------n";
print "-----WebScan-------n";
print "-----XiaoCon-------n";
print "-------------------n";
#以下这段是参数定义,端口扫描可选项目,如果不填,#默认扫描,如果填n则不扫描.
#Thread是定义线程数量.
#Url是定义需要进行扫描的Web网站.
#List是扫描的字典,这里设计可以自己定义.
GetOptions("Thread=i" => $threads_max,"Url=s" => $weburl,"List=s" => $list_file);
#这里的线程数量根据自己需求来定义,默认是10.
if( $thread_max < 10 ){
$thread_max = 10;
}
#信号用于控制线程数
my $signal_max = Thread::Semaphore->new( $threads_max );
#下面是针对字典文件进行操作，
#实际作用就是URL+字典的每一条，然后
#让每一条标准的URL地址成为一条线程
#最后提交，根据返回的相应头判断是否存在
#如果返回200,则证明存在该页面。
#否则没有返回。
#现在部分网站都有错误页面定义，
#所以该脚本比较鸡肋，我只是写着玩。
open(FILE,$list_file);
foreach(<FILE>){
if( ${$signal_max} <= 0 ){
for my $t(threads->list(threads::joinable)){
$t->join();
$signal_max->up();
}
redo;
}
$signal_max->down();
chomp;
$scan_task=$weburl.$_;
threads->create(&;Webscan,$scan_task);
}
for my $t(threads->list()){
$t->join();
}
close(FILE);
sub Webscan
{
local($scan_url)=shift;
if($scan_url !~/^http/){
$scan_url='http://'.$scan_url;
}
my $request=HTTP::Request->new(GET=>$scan_url);
my $uat=LWP::UserAgent->new();
$uat->timeout(20);
my $response=$uat->request($request);
if($response->status_line=~/200/)
{
print "$scan_url------true!n";
}
}