对美国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/,如需转载,请注明出处,否则将追究法律责任。

user_pic_default.png
请登录后发表评论 登录
全部评论
<%=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/

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值