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

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

skskevin

回复 10# 机器猫II
我们公司用的短信猫带一个短信猫通信中间件（即基于数据库接口的短信猫通信服务器软件），只需要提交短信队列到数据库里即可。
代码很简单，只需要连接数据库写入数据即可。

sub SendsmsMysql{
        my($mobilenum,$msg) = @_;
        my $dbh = DBI->connect("DBI:mysql:database=数据库名称;host=服务器IP地址;","用户名", "密码");
  if($dbh){
      $dbh->do("set character_set_client='gbk'");  
      $dbh->do("set character_set_connection='gbk'");  
      my  $sql = qq { insert into T_SendTask (DestNumber,Content)values('$mobilenum','$msg') };
          print $sql,$/;
        my  $sth = $dbh->prepare($sql);
        $sth->execute();
        $sth->finish();
        sleep(2);
  }
}

skskevin

回复 13# yaoliwei

去掉  “binmode(STDOUT, ':encoding(gb2312)');” 前面的注释符号，如果还不行，改成UTF8试试。

skskevin

回复 12# 机器猫II


    linux 对短信猫的支持，感觉还不错。至少目前还没出现什么问题。