ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 对美国accuweather网站天气数据的解析

对美国accuweather网站天气数据的解析

原创 Linux操作系统 作者:perltest 时间:2011-12-07 16:07:33 0 删除 编辑

美国accuweather天气网站对中国普通城市也有天气预报,据说还比较准确。

现在需要在它的天气网页上把天气文字部分解析出来,今天写了一个Perl程序来实现,下面的例子是北京市最近一周的天气。

 

 

#!/usr/bin/perl

use Encode;
use LWP::Simple;
use utf8;
binmode(STDIN, ':encoding(utf8)');
binmode(STDOUT, ':encoding(utf8)');
binmode(STDERR, ':encoding(utf8)');

my $html=get("http://www.accuweather.com/zh-cn/cn/beijing/beijing/forecast.aspx") or exit;

my @temp = split ("

",$html);
my $data = $temp[2].$temp[3];

@temp = split ("

",$data);
my $t;
my $i=0;

shift (@temp);

foreach $t (@temp)
{
 if ($t=~/(.*?)<\/span>/) {  $date[$i] = $2; }
 if ($t=~/(.*?)<\/span>/) {  $desc[$i] = $2; }
 if ($t=~/(.*?)<\/span>/) {  $label[$i] = $2; }
 if ($t=~/(.*?)°/) { $j=$2." C"; $high[$i++] = $j; }
}

foreach $i (0..6)
{
 $j = $i + 7;
 print "\n$ date[$i]  $desc[$i]  $high[$i]         $date[$j]  $desc[$j]  $high[$j]";
}

print "\n";

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/21129783/viewspace-712877/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2016-08-15

  • 博文量
    113
  • 访问量
    101979