您的位置:首页资讯网络应用 → 教你perl获取空间的代码

教你perl获取空间的代码

时间:2009/11/4 15:42:00来源:本站整理作者:我要评论(0)

教你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";}
}

 

相关视频

    没有数据

相关阅读 Windows下的Perl activeperl安装步骤perl是什么this game was not properly authenticated at launch time解决方ActivePerl PerlIS.dll 远程缓冲区PerlScript编写ASPWin2000+Apache+MySql+PHP4+PERL安装使用小结Win98搭建调试ASPPERLPHP三种环境用PERL实现一个简单的NIDS

文章评论
发表评论

热门文章 360免费wifi电脑版怎么有道云笔记怎么保存网有道云笔记内容丢失怎360免费wifi一直显示正

最新文章 微博热搜宝盒是什么 微最新微信编辑器哪个好 百度网盘安全吗?百度网盘信息泄露怎么回事乐视云盘关闭怎么办 乐视云盘关闭怎么转移文百度云盘下载速度慢解决方法2017 百度云盘下百度网盘怎么用迅雷下载2017 百度网盘怎么用

人气排行 无线网络密码破解WPA/WPA2教程(包教包会)微信编辑器哪个好 3种实用微信编辑器推荐foxmail邮件存储位置在哪 foxmail7.2邮件存p2p种子搜索器用不了解决办法360免费wifi没有无线网卡怎么办百度云网盘中怎么添加好友 百度云网盘添加微信电脑版聊天记录保存在哪 微信电脑版文件360云盘上传速度慢怎么办 360云盘上传速度慢