[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)
{{#tags}}- {{label}}
{{/tags}}