Perl结合飞信发送免费的天气预报信息

每天在公司上班，打开QQ的同时，就顺便看了一下今天的天气情况。当时就在想，可不可以用perl来解析这个html页面，抽取其中必要的elements，然后透过第三方的飞信将该消息发送给自己，不就可以了么。说干就干，就写了这么一段代码，算法不是特别好，参考了某位网友的处理方法，但又有区别。

获取天气预报的页面地址，我用了这个address

http://qq.ip138.com/weather/zhejiang/HangZhou.htm 

完整的code如下：（调试了一天，妈妈的）

#!/usr/bin/perl -w 

use strict;

#utf8一定要加，否则出现乱码

use utf8; 

use LWP::Simple; 

use 5.010;

my $url = shift || "http://qq.ip138.com/weather/zhejiang/HangZhou.htm"; 

my $content = get $url; 

my @url = split /\n/,$content; 

my $path = "/root/lib"; 

my $fetion = "/root/lib/fetion"; 

&get_weather(\@url); 

system(qq{LD_LIBRARY_PATH=$path $fetion --mobile=12345678901 --pwd='123456' --to=123456 --exit-on-verifycode=1 --file-utf8=/root/weather.txt --msg-type=1}); 

sub get_weather($) { 

    my ( $weather ) = @_; 

    my ( $count,$i ) = ( 0,0 ); 

    while ( $i < scalar(@$weather) ) { 

           next unless @$weather[$i++] =~ /日期/; 

           $i += 1; 

           open my $file,'>>','/root/weather.txt' or die "$!\n"; 

           if ( -s '/root/weather.txt' > 0 ) { 

               system("cat /dev/null >/root/weather.txt"); 

           } 

           while ( $count < 1 ) { 

                  @$weather[$i++] =~ /(?:.*)\>(?<name1>.*?)\<\/td\>/; 

                  $count ++; 

                  say $file "$+{name1}\t"; 

           say $file "\n"; 

           $i += 9; 

$count = 0; 

                  @$weather[$i++] =~ /.*\>(?<name2>.*)\<\/td\>/; 

                  say $file "$+{name2}\t"; 

          say $file "\n"; 

           $count = 0; 

                  @$weather[$i++] =~ /(?:.*)\>(?<name3>.*?)\<\/td\>/; 

                  say $file "$+{name3}\t"; 

    close $file; 

    last; 

    } 

} 

此支perl程序，仅仅抽取了天气预报详情页面的这几个值：

1) 日期

2) 实际天气情况

3）当天的气温

其他的就没有弄了，情况类似。

附：linux下配置飞信的方法

下载机器人支持库

http://www.it-adv.net/fetion/linuxso_20101113.rar

注：我的系统是64位的，但是如果下载了64位的版本，ms有问题，32位的就OK

另外，linux用户，请不要把支持库中的 lib* 复制到 /usr/lib 下，因为发行版本不同，可能会覆盖您机器中的核心库，导致严重系统问题。您可以把库解压到主程序的相同目录，然后以 LD_LIBRARY_PATH=. ./fetion 来运行）

详细介绍见这个页面

http://bbs.it-adv.net/viewthread.php?tid=1081&extra=page%3D1

本文转自dongfang_09859 51CTO博客，原文链接：http://blog.51cto.com/hellosa/620743，如需转载请自行联系原作者