perl 写的查询天气预报的脚本

aef25u

回复 20# yaoliwei

我写的那个就是在strawberry-perl上写的，在padre输出。

ykredrum

这个怎么回事啊
这个模块没有new方法？

iamlimeng

看很多人中文显示不正常或用其他模块解析不正常，改了一个直接用正则提取天气信息的，供大家参考：
（XP，ActivePerl 5.10.1007运行正常，中文亦正常）

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use Encode;
   
6. use LWP::Simple;
   
7. 
   
8. my $html=get("http://www.weather.com.cn/html/weather/101250101.shtml");
   
9. my @div = ($html =~ /<div class="weatherYubao.*?>(.*?)<\/div>/isg);
   
10. my $data = encode("gbk",join('',@div));
    
11. $data =~ s/\n|\r//g;
    
12. 
    
13. my ($title) = ($data =~ /<h1 class="weatheH1">(.*?)<span>/i);
    
14. $title =~ s#&nbsp;|\s+# #ig;
    
15. print "\n$title\n\n";
    
16. 
    
17. my @forcast_table = ($data =~ /(<table.*?>.*?<\/table>)/ig);
    
18. foreach (@forcast_table) {
    
19.          if (/class="yuBaoTable"/i) {
    
20.                  s/<.*?>//g;
    
21.                  s/\s+/\t/g;
    
22.                   s/^\t/ ++ /;
    
23.                   s/\t白天/\n 白天/;
    
24.                   s/\t夜间/\n 夜间/;
    
25.                   print "$_\n\n";
    
26.          }
    
27. }
    
28. print "\7";
    
29. 
    
30. <STDIN>;

复制代码