Perl中安装LWP::Simple的问题

Ufinity_wss

UID: 1894
帖子: 48
积分: 110
在线时间: 3 小时

1^# Ufinity_wss 发表于 2008-01-04 16:49

Perl中安装LWP::Simple的问题

代码如下:
#!/usr/bin/perl

use LWP::Simple;
use HTML:arse;
use HTML::Element;
use URI::URL;
print "Content-type: text/html; charset=GB2312\n\n";
$ARGV[0]="http://www.sun126.com";
$html = get $ARGV[0];
$parsed_html = HTML:arse::parse_html($html);
for (@{ $parsed_html->extract_links((a)) }) {$i++;

      $link = $_->[0];
      $url = new URI::URL $link;
      $full_url = $url->abs($ARGV[0]);
      print "$i : $full_url<br>\n";
}
会报如下错误:
Can't locate LWP/Simple.pm in @INC (@INC contains: /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.7/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.6/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl/5.8.7 /usr/lib/perl5/site_perl/5.8.6 /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.7/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.6/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl/5.8.7 /usr/lib/perl5/vendor_perl/5.8.6 /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl /usr/lib/perl5/5.8.8/i386-linux-thread-multi /usr/lib/perl5/5.8.8 .) at getHtmlLink.pl line 5.
BEGIN failed--compilation aborted at getHtmlLink.pl line 5.
如何解决^^^^^谢谢!!

soichiro

UID: 33959
帖子: 35
积分: 80
在线时间: 1 小时

2^# soichiro 发表于 2008-01-04 21:12

cpan -i LWP::Simple

Ufinity_wss

UID: 1894
帖子: 48
积分: 110
在线时间: 3 小时

3^# Ufinity_wss 发表于 2008-01-07 09:57

在perl中调用系统命令system(wget .......)提取一个网页,并得到网页的内容,保存在文件中?
如何做?谢谢!

__lxmxn__

UID: 3845
帖子: 167
积分: 384
在线时间: 1 天 14 小时

4^# __lxmxn__ 发表于 2008-01-07 10:24

[Copy to clipboard] [ - ]

CODE:

system("wget -q -O myfile http://www.google.cn")'