[Perl] 電車が遅れたらメールで通知 WWW::TrainInfo::JREast; - NeverBlog::Likk::Unexistable;地元ローカル線がよく遅れるので、駅着く前に事前に知りたいなぁ…と。 まぁ、そういうケータイサービスなんてゴロゴロしているんですが、作ってみたので貼り付け。 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' => '
![[Perl] 電車が遅れたらメールで通知 WWW::TrainInfo::JREast; - NeverBlog::Likk::Unexistable;](https://cdn-ak-scissors.b.st-hatena.com/image/square/418564d720329df028aeac390e6fbb2fc0afb480/height=288;version=1;width=512/https%3A%2F%2Fogimage.blog.st-hatena.com%2F13208692334729896312%2F12704591929883560301%2F1338450218)
