学校要求密切关注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/