|
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}; # 印出结果 |
阿莫论坛20周年了!感谢大家的支持与爱护!!
你熬了10碗粥,别人一桶水倒进去,淘走90碗,剩下10碗给你,你看似没亏,其实你那10碗已经没有之前的裹腹了,人家的一桶水换90碗,继续卖。说白了,通货膨胀就是,你的钱是挣来的,他的钱是印来的,掺和在一起,你的钱就贬值了。
|