抓取太平洋上海市车辆管理系统的perl脚本

[code]
#!/usr/bin/perl
#use strict;
use LWP 5.64;
use LWP::ConnCache;
use IO::Socket;
require HTTP::Cookies;



$remote_host = "xxx.xxx.xxx.xxx";
$remote_port = "80";


$start=0;
$stop=9999;
$med=0;


$start_all=0;
$stop_all=9999;


$prefix='%BB%A6C';

my @m=(0..9,A..Z);


for($i=$start;$i<=$stop;$i++){
my $postfix;

$postfix=sprintf "%04d%s", $i;
&get_time($prefix.$m[$med].$postfix);

}


splice(@m,0,$med+1);


foreach my $medium( @m){

for($i=$start_all;$i<=$stop_all;$i++){
my $postfix;

$postfix=sprintf "%04d%s", $i;
&get_time($prefix.$medium.$postfix);

}
}


sub get_time{

my $num=shift@_;


#my $browser = LWP::UserAgent->new(keep_alive =>1, timeout=>5,agent =>'GoogleSpider');
my $browser = LWP::UserAgent->new(timeout=>5,agent =>'GoogleSpider');

$cookie_jar = HTTP::Cookies->new();

$browser->cookie_jar($cookie_jar);

my $infourl='http://xxx.xxx.xxx.xxx/address.jsp?vehicle=';

$infourl.=$num;
$infourl.='&&fgs=3010100';
my $response = $browser->get($infourl);
#die "Response Error :", $response->status_line, "\n Aborting" unless $response->is_success;
if($response->is_success)
{
print $num."->sucess\n\n";
`echo $num > cnt`;
}
else
{
print $num."->Response Error :".$response->status_line."End.\n";

`echo $num >> failure`;

return
}
#print $response->content;


my $name=substr($num,6).'.htm';
$name='info'.$name;

open(MYOUTFILE, ">$name"); #open for write, append


print MYOUTFILE $response->content;


}[/code]