学校要求密切关注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">(.*?)<\/FONT><\/div>/)
{
$content=$1;
}
print $content."\n";
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/21129783/viewspace-758763/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
全国医师定期考核光盘试题
下一篇：
医院管理使用二维码图技术
请登录后发表评论
登录
全部评论
