教你perl获取空间的代码

教你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,"<write.txt");
while(my $line=<READFILE>){
chomp($line);
if($line =~/^writelinks("(.*?)","/g){print $1."n";}
}

（编辑：信阳站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!