发个好东西,我想这个好多年了。
LWP::Simple利用LWP::Simple,可以很容易的让我们在Perl程式中取得某个网页的内容,这经常被拿来运用于资料的收集。
$page = get("http://www.cpan.org/"); # 取得网页
getprint($url); # 印出内容
getstore($url, $file); # 存入档案
head($url) # 取得标头
mirror($url, $file); # 映射网址
WWW::Mechanize
如果你每天都要进行相同的步骤去登入某个网站,或填入某些资料取得相关的资讯,那么你可以可以透过WWW::Mechanize来请Perl帮忙。他可以像一个机器人般的,帮你进行这些繁杂的手续,就像你的代理人一般。
my $agent = WWW::Mechanize->new(); # 建立物件
$agent->get($url); # 到达网站
$agent->follow($link); # 按下链结
$agent->form($number); # 进入表单
$agent->field($name, $value); # 输入资料
$agent->click($button); # 按下按钮
$agent->back(); # 回上一页
$agent->add_header($name => $value); # 加入标头
print $agent->{content}; # 印出结果 不懂,但是先mark 不懂,求解释 mark! 直接向服务器POST数据不行么? 大家没有过这种想法吗?每天下班回来一摸电脑,最新一期的《天天向上》,天涯八卦的热贴,你所关心的帖子的最新进展。。。。已 下载好放在你桌面上了。 cool!
页:
[1]