#!/opt/local/bin/perl -w
use strict;
use LWP::Simple;
use Encode;
use encoding 'eucjp';
binmode(STDERR, ':raw :encoding(eucjp)');
my $id = shift @ARGV || '074';
my $url = "http://www.anzen.mofa.go.jp/info/info4.asp?id=$id";
my $content = get($url);
die "$url を読み込むことができませんでした。" unless defined $content;
$content = decode('shiftjis', $content);
$content =~ s/<!--(.*?)-->//gs;
$content =~ / SELECTED>▼([^<]+)</;
print "$1\n";
if ($content =~ /現在、危険情報は出ておりませんが、/) {
print "危険情報は出ていません。\n";
} else {
print "危険情報が出ています!\n";
}
print "詳細は http://www.anzen.mofa.go.jp/ を見てください。\n"