perl找不到Simple.pm模块？

telekroc

下面是一个截取网页信息的perl代码：

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use LWP::Simple;
   
5. my $content = get("http://www.w3.weather.com/weather/print/POXX0016");
   
6. $content =~ s/.*<!-- begin loop -->(.*)<!-- end loop -->.*/$1/s;
   
7. my @day = split /<TR>/, $content;
   
8. shift @day;
   
9. my ($day, $date, $img, $temp, $precip);
   
10. my $tomorrow;
    
11. foreach $_ (@day) {
    
12.         ($day) = /(\w+)<\/A>/s;
    
13.         ($date) = /<BR> (.+?)</s;
    
14.         ($img) = /(\d+)\.gif/s;
    
15.         $img = $ARGV[0] . $img . '.png';
    
16.         ($temp) = /<B>(.*?)<\/B>/s;
    
17.         $temp =~ s/&deg;/chr(186)/eg;
    
18.         $temp =~ s|(\d+)|sprintf "%d", ($1 - 32) * 5 / 9|eg;
    
19.         ($precip) = /(\d+ %)/;
    
20.         print $img . "\n" . $temp . "C\n" . $precip . "\n";
    
21. }
    

复制代码

但在执行过程中出现如下错误：

1. 
   
2. Can't locate LWP/Simple.pm in @INC (@INC contains: /etc/perl /usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux /usr/lib64/perl5/vendor_perl/5.8.8 /usr/lib64/perl5/vendor_perl /usr/lib64/perl5/site_perl/5.8.8/x86_64-linux /usr/lib64/perl5/site_perl/5.8.8 /usr/lib64/perl5/site_perl /usr/lib64/perl5/5.8.8/x86_64-linux /usr/lib64/perl5/5.8.8 /usr/local/lib/site_perl .) at ./weather_log.plx line 3.
   
3. BEGIN failed--compilation aborted at ./weather_log.plx line 3.
   

复制代码

下面可以找到这个模块的位置：

1. 
   
2. $ locate Simple.pm
   
3. /usr/lib64/perl5/5.8.8/Test/Simple.pm
   
4. /usr/lib64/perl5/5.8.8/Filter/Simple.pm
   

复制代码

如何才能让脚本运行？:ask

晨想

/usr/lib/perl5/site_perl/5.8.8/LWP/Simple.pm

cpan -i LWP

telekroc

Post by 终极幻想
/usr/lib/perl5/site_perl/5.8.8/LWP/Simple.pm

cpan -i LWP

我对perl一窍不通，这个脚本是为了的到网上天气预报信息，
因为对perl的陌生，所以对你提出的解决方法有点迷惑，
比如LWP是什么意思（当地工作路径？）？

cpan -i LWP

把当地工作路径添加进来，但是前面的那个命令我就不明白是什么意思了

/usr/lib/perl5/site_perl/5.8.8/LWP/Simple.pm

希望能说明白点，谢谢！

islue

错误信息是

Can't locate [color="Red"]LWP/Simple.pm

你找的是

$ locate [color="Blue"]Simple.pm

所以让你安装

$ cpan -i [color="Red"]LWP::Simple

telekroc

基本上明白了，谢谢！