教你perl获取空间的代码
- 时间：2015年04月02日 12:00:16 来源：魔法猪系统重装大师官网 人气：17209
教你perl获取空间的代码
use LWP::UserAgent;
use HTTP::Request;
use LWP::Simple;
system("cls");
my $url=shift;
my $req=HTTP::Request->new(GET=>$url);
my $ua=LWP::UserAgent->new();
$ua->timeout(15);
my $resposta=$ua->request($req);
$content=$resposta->content;
open(WRITEFILE,">write.txt");
print WRITEFILE $content."\n";
open(READFILE,"
chomp($line);
if($line =~/^writelinks\(\"(.*?)\",\"/g){print $1."\n";}
}
教你,perl,获取,空,间的,代码,教你,perl,获取,
上一篇：IE主页修改问题
下一篇：如何将足彩两万注压缩到两百注，并保有一等奖？
