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

aef25u

回复 6# chinalinuxer

1. #!/usr/bin/perl
   
2. use utf8;
   
3. use URI;
   
4. use Web::Scraper;
   
5. 
   
6. binmode( STDOUT, ':encoding(utf8)' );
   
7. 
   
8. my $url   = "http://www.weather.com.cn/html/weather/101280101.shtml?";
   
9. my $proce = scraper {
   
10.     process '.yuBaoTable > tr', 'rows[]' =>scraper {
    
11.         process 'td', 'cols[]' => 'TEXT';
    
12.     };
    
13. };
    
14. 
    
15. my $res = $proce->scrape( URI->new($url) );
    
16. for my $row ( @{ $res->{rows} } ) {
    
17. 
    
18.     my @weather=@{ $row->{cols} };
    
19.     print "@weather\n";
    
20. 
    
21. }
    
22. 
    

复制代码

这个实现怎样，我觉得perl也不错

aef25u

回复 20# yaoliwei

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