職場から「新型インフルエンザの状況が第二段階（国内発生早期）またはそれ以上の段階となった場合はマスクをして来い」とお達しが出ましたが、いちいち厚生労働省のページを見に行くのがメンドくさかったのでツール作った。
2009/05/13 動かなくなってたのでlook_down('class', 'link')をlook_down('class', 'link_icon')に変更しました。
H1N1-Stage-Japan.pl
PERL:
-
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;
-
my $body = $http->body;
-
-
my (undef, $tag) = HTML::TreeBuilder->new->parse($body)->eof->look_down('class', 'link_icon');
-
-
say $tag->as_text;
「第一段階（海外発生期）」とか返ってきます。
