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

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

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

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

1. #!/usr/bin/perl -w
2. use strict;
3. #utf8一定要加，否则出现乱码
4. use utf8;
5. use LWP::Simple;
6. use 5.010;
7. my $url = shift || "http://qq.ip138.com/weather/zhejiang/HangZhou.htm";
8. my $content = get $url;
9. my @url = split /\n/,$content;
10. my $path = "/root/lib";
11. my $fetion = "/root/lib/fetion";
12. &get_weather(\@url);
13. 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});
14. sub get_weather($) {
15. my ( $weather ) = @_;
16. my ( $count,$i ) = ( 0,0 );
17. while ( $i < scalar(@$weather) ) {
18. next unless @$weather[$i++] =~ /日期/;
19. $i += 1;
20. open my $file,'>>','/root/weather.txt' or die "$!\n";
21. if ( -s '/root/weather.txt' > 0 ) {
22. system("cat /dev/null >/root/weather.txt");
23. }
24. while ( $count < 1 ) {
25. @$weather[$i++] =~ /(?:.*)\>(?<name1>.*?)\<\/td\>/;
26. $count ++;
27. say $file "$+{name1}\t";
28. }
29. say $file "\n";
30. $i += 9;
31. $count = 0;
32. while ( $count < 1 ) {
33. @$weather[$i++] =~ /.*\>(?<name2>.*)\<\/td\>/;
34. $count ++;
35. say $file "$+{name2}\t";
36. }
37. say $file "\n";
38. $i += 9;
39. $count = 0;
40. while ( $count < 1 ) {
41. @$weather[$i++] =~ /(?:.*)\>(?<name3>.*?)\<\/td\>/;
42. $count ++;
43. say $file "$+{name3}\t";
44. }
45. close $file;
46. last;
47. }
48. }

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

1) 日期

2) 实际天气情况

3）当天的气温

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

附：linux下配置飞信的方法

下载机器人支持库

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

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

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

详细介绍见这个页面

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