maxiao 发表于 2011-5-14 16:09:44

发个好东西，我想这个好多年了。

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}; # 印出结果

yangjinke1118 发表于 2011-5-14 17:43:48

不懂，但是先mark

monkhooder 发表于 2011-5-14 18:41:34

不懂，求解释

lhh1389 发表于 2011-5-14 19:42:45

mark!

manhere 发表于 2011-5-14 19:47:22

直接向服务器POST数据不行么？

maxiao 发表于 2011-5-14 21:05:33

大家没有过这种想法吗？每天下班回来一摸电脑，最新一期的《天天向上》，天涯八卦的热贴，你所关心的帖子的最新进展。。。。已

maxiao 发表于 2011-5-14 21:06:20

下载好放在你桌面上了。

shuixingoo 发表于 2011-5-14 21:39:18

cool！
页: [1]
查看完整版本: 发个好东西，我想这个好多年了。