perl 寫的查詢天氣預(yù)報(bào)的腳本

skskevin

#! /usr/bin/perl -s
#查詢天氣預(yù)報(bào)的腳本，只取今天和明天的天氣預(yù)報(bào)

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";

還可以利用短信貓，將信息發(fā)到手機(jī)上。呵呵，我就是這么干的，免費(fèi)的天氣預(yù)報(bào)！

liyangole

回復(fù) 1# skskevin


    頂一下，一起戰(zhàn)斗的兄弟

gilet

我以前也是用自己提取的天氣預(yù)報(bào)，但是要掛到服務(wù)器上跑crontab,后來就用google的日歷提醒來發(fā)天氣預(yù)報(bào)了

iamlimeng

支持原創(chuàng)，頂一下！

mouse.rice

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

chinalinuxer

還是GOOGLE的好

ykredrum

謝謝樓主分享哈，
不過use DBI好像沒有用到

aef25u

回復(fù) 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. 
    

復(fù)制代碼

這個(gè)實(shí)現(xiàn)怎樣，我覺得perl也不錯(cuò)

機(jī)器貓II

哈哈謝了，高效廉價(jià)的天氣預(yù)報(bào)，如果用在證券上，可以給不方便看盤的人提供個(gè)股即時(shí)報(bào)價(jià)

機(jī)器貓II

樓主有空再介紹下短信貓，這個(gè)組合應(yīng)用很爽