注册
登录
| 关键词： content Request WRITEFILE UserAgent resposta LWP print line my open |
孤水绕城’s Bloguse 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";}} |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
