Perlで地震情報を取得

気象庁のHP http://www.jma.go.jp/jp/quake/quake_sindo_index.htmlのソースから地震情報が書かれてる部分を切り取って表示するだけのスクリプト

#!/usr/bin/perl
use LWP;

$ua = LWP::UserAgent->new;
$res = $ua->get("http://www.jma.go.jp/jp/quake/quake_sindo_index.html");
$html = $res->content;
while($html =~ m{<td nowrap>(.*?)</td></tr>}ig) {
        $str = $1;
        $str =~ s/<.*?>/ /g;
        print $str,"\n";
}

出力
$ ./quake.pl

 平成２３年１２月２４日１５時１６分   ２４日１５時１４分頃  震度３
 平成２３年１２月２４日１１時２３分   ２４日１１時２１分頃  震度３
 平成２３年１２月２２日０５時１２分   ２２日０５時１０分頃  震度３
 平成２３年１２月２１日１１時０９分   ２１日１１時０６分頃  震度３
 平成２３年１２月２１日１１時０８分   ２１日１１時０６分頃  震度３
 平成２３年１２月２１日１１時０８分   ２１日１１時０６分頃  震度３
 平成２３年１２月２０日１８時１３分   ２０日１８時１０分頃  震度３
 平成２３年１２月２０日１５時２８分   ２０日１５時２６分頃  震度３
 平成２３年１２月２０日１０時３７分   ２０日１０時３５分頃  震度３
 平成２３年１２月２０日０２時２６分   ２０日０２時２３分頃  震度３
 平成２３年１２月１９日２３時４１分   １９日２３時４０分頃  震度３
 平成２３年１２月１９日１６時０３分   １９日１６時０１分頃  震度３

引数として１を付けて実行すると画像も取得するようにやっつけで強化してみた

#!/usr/bin/perl
use LWP::Simple;
use File::Basename;

$url = 'http://www.jma.go.jp/jp/quake';

$ua = LWP::UserAgent->new;
$res = $ua->get("$url/quake_sindo_index.html");
$html = $res->content;
@info = $html =~ m{<td nowrap>(.*?)</td></tr>}g;
@link = $html =~ m{\d+-\d+.html}g;
foreach(@info){
        $str = $_;
        $str =~ s/<.*?>/ /g;
        print "$str\n";
}
if($ARGV[-1] eq '1'){
        foreach(@link){
                $res = $ua->get("$url/$_");
                $html = $res->content;
                @img = $html =~ m{<img src="\.(/images/japan/.*\.png)"}g;
                foreach(@img){
                        print "Downloading... $_\n";
                        mirror("$url/$_",basename($_));
                }
        }
}

$ ./quake.pl 1

 平成２３年１２月２４日１５時１６分   ２４日１５時１４分頃  震度３
 平成２３年１２月２４日１１時２３分   ２４日１１時２１分頃  震度３
 平成２３年１２月２２日０５時１２分   ２２日０５時１０分頃  震度３
 平成２３年１２月２１日１１時０９分   ２１日１１時０６分頃  震度３
 平成２３年１２月２１日１１時０８分   ２１日１１時０６分頃  震度３
 平成２３年１２月２１日１１時０８分   ２１日１１時０６分頃  震度３
 平成２３年１２月２０日１８時１３分   ２０日１８時１０分頃  震度３
 平成２３年１２月２０日１５時２８分   ２０日１５時２６分頃  震度３
 平成２３年１２月２０日１０時３７分   ２０日１０時３５分頃  震度３
 平成２３年１２月２０日０２時２６分   ２０日０２時２３分頃  震度３
 平成２３年１２月１９日２３時４１分   １９日２３時４０分頃  震度３
 平成２３年１２月１９日１６時０３分   １９日１６時０１分頃  震度３
Downloading... /images/japan/20111224151611353-241514.png
Downloading... /images/japan/20111224112303353-241121.png
Downloading... /images/japan/20111222051207353-220510.png
Downloading... /images/japan/20111221110940353-211106.png
Downloading... /images/japan/20111221110829353-211106.png
Downloading... /images/japan/20111221110810353-211106.png
Downloading... /images/japan/20111220181356353-201810.png
Downloading... /images/japan/20111220152802353-201526.png
Downloading... /images/japan/20111220103736353-201035.png
Downloading... /images/japan/20111220022609353-200223.png
Downloading... /images/japan/20111219234138353-192340.png
Downloading... /images/japan/20111219160323353-191601.png

$ ls *.png

20111219160323353-191601.png
20111219234138353-192340.png
20111220022609353-200223.png
20111220103736353-201035.png
20111220152802353-201526.png
20111220181356353-201810.png
20111221110810353-211106.png
20111221110829353-211106.png
20111221110940353-211106.png
20111222051207353-220510.png
20111224112303353-241121.png
20111224151611353-241514.png