Perl中LWP模块的使用

 

下面是一段用来提取http://www3.interscience.wiley.com/journal/68503385/abstract网址源代码的perl脚本。

问题在于，它是一个转向的地址。如果你缺少一句，可就无能为力了。

我今天花了一天的时间，总算是知道问题出在哪了。就少了$browser->cookie_jar({});这句代码是让请求发送的时候，带上

cookie，就能获得想要的页面源代码了。

 

use strict;
use LWP;
use HTTP::Cookies;
my $browser = LWP::UserAgent->new();

#$browser->cookie_jar(HTTP::Cookies->new({}));
$browser->cookie_jar({});

my $content = $browser->get("http://www3.interscience.wiley.com/journal/68503385/abstract")->content;
print $content;

 

另外perl处理文本是超级能手，http://lwp.interglacial.com/index.html这个站点相对比较详细了讲解了常见的获得

网页源码的Perl方法，感觉不错。

 

而且可以看到比PHP要简单。没多余的代码。