解析H7N9禽流感最新消息的Perl代码

学校要求密切关注H7N9流感的最新疫情，现在在医学管理页面上加上了最新疫情的信息。

通过一段Perl程序解析中国疾控中心网站的最新流感信息，把信息放在医院页面上，Perl做这个事非常简单。

 

#!/usr/bin/perl
# 解析禽流感疫情

use Encode;
use LWP::Simple;

my $html=get("http://www.chinacdc.cn/jkzt/crb/rgrgzbxqlg_5295/rgrqlgyp/") or exit;
$html=~s/\r|\n//g;

if ($html=~/{
 $url=$1;
}

$url = "http://www.chinacdc.cn/jkzt/crb/rgrgzbxqlg_5295/rgrqlgyp/201304/".$url;

my $html=get($url) or exit;
$html=~s/\r|\n//g;

if ($html=~/FONT-SIZE: 14pt">(.*?)/)
{
 $content=$1;
}

print $content."\n";

 

 

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

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