地元ローカル線がよく遅れるので、駅着く前に事前に知りたいなぁ…と。 まぁ、そういうケータイサービスなんてゴロゴロしているんですが、作ってみたので貼り付け。 package WWW::TrainInfo::JREast; use strict; use warnings; use URI; use Web::Scraper; use DateTime; our $VERSION = '0.2'; our $SITE_URL = "http://www.jreast.co.jp/"; our $BASE_URL = "http://traininfo.jreast.co.jp/train_info/"; our $AREA_DATA = { 'k' => { 'name' => '関東エリア', 'sub_url' => 'kanto.aspx' }, 't' => { 'name' => '