職場から「新型インフルエンザの状況が第二段階（国内発生早期）またはそれ以上の段階となった場合はマスクをして来い」とお達しが出ましたが、いちいち厚生労働省のページを見に行くのがメンドくさかったのでツール作った。
2009/05/13 動かなくなってたのでlook_down(‘class’, ‘link’)をlook_down(‘class’, ‘link_icon’)に変更しました。
H1N1-Stage-Japan.pl
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | use strict; use warnings; use HTML::TreeBuilder; use HTTP::Lite; use Perl6::Say; my $uri = 'http://www-bm.mhlw.go.jp/bunya/kenkou/kekkaku-kansenshou04/'; my $http = new HTTP::Lite; $http->request($uri) || die $!; my $body = $http->body; my (undef, $tag) = HTML::TreeBuilder->new->parse($body)->eof->look_down('class', 'link_icon'); say $tag->as_text; |
「第一段階（海外発生期）」とか返ってきます。
