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

美国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=~/(.*?)/) {  $date[$i] = $2; }
 if ($t=~/(.*?)/) {  $desc[$i] = $2; }
 if ($t=~/(.*?)/) {  $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/，如需转载，请注明出处，否则将追究法律责任。

0

0

分享到：

上一篇： 通过nslookup的-vc参数自动解析域名

下一篇： 通过国外SSH自动更新hosts列表

请登录后发表评论 登录

全部评论

<%=items[i].createtime%>

<%=items[i].content%>

<%if(items[i].items.items.length) { %>

<%for(var j=0;j

<%=items[i].items.items[j].createtime%> 回复

<%=items[i].items.items[j].username%>   回复   <%=items[i].items.items[j].tousername%>： <%=items[i].items.items[j].content%>

<%}%> <%if(items[i].items.total > 5) { %>

还有<%=items[i].items.total-5%>条评论 ) data-count=1 data-flag=true>点击查看

<%}%>

<%}%>

<%}%>

转载于:http://blog.itpub.net/21129783/viewspace-712877/