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

skskevin

#! /usr/bin/perl -s
#查询天气预报的脚本，只取今天和明天的天气预报

use LWP::Simple;
use strict;
use Encode;
use HTML::TableExtract;
use DBI;
#binmode(STDOUT, ':encoding(gb2312)');
#消取输出缓冲
$| = 1;

my $html=get("http://www.weather.com.cn/html/weather/101010100.shtml");
my $tree = HTML::TableExtract->new( attribs => { class => 'yuBaoTable' } );
$tree->parse($html);
my $i=0;
my $msg="";
my $m="";
$| = 1;
foreach my $ts ($tree->tables) {
if ($i<2){
    print ".";
    print " Complete!\n" if ($i == 1);
    sleep(1);
    foreach my $row ($ts->rows) {
        $msg=join(',', @$row);
        
        $msg = encode("gb2312", $msg);
      #print "   ", join(' ', @$row),"\n";
       #print "$msg\n";
       my @aa=split(/,/,$msg);
       foreach my $item(@aa){
         if ($item){
                $m=$m.$item.";";
         
        $m=~s/\s//g;
      
                }
         
        }
     
       #print "$aa[0]\n$aa[1]\n$aa[2]\n$aa[3]\n";
   }
    $i++;
}
}
$m=~tr/;/\n/s;
print "$m\n";

还可以利用短信猫，将信息发到手机上。呵呵，我就是这么干的，免费的天气预报！

liyangole

回复 1# skskevin


    顶一下，一起战斗的兄弟

gilet

我以前也是用自己提取的天气预报，但是要挂到服务器上跑crontab,后来就用google的日历提醒来发天气预报了

iamlimeng

支持原创，顶一下！

mouse.rice

use DBI;
貌似多余吧，呵呵。

chinalinuxer

还是GOOGLE的好

ykredrum

谢谢楼主分享哈，
不过use DBI好像没有用到

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也不错

机器猫II

哈哈谢了，高效廉价的天气预报，如果用在证券上，可以给不方便看盘的人提供个股即时报价

机器猫II

楼主有空再介绍下短信猫，这个组合应用很爽