2007/12/23

JR北海道の運行情報をお知らせするJRHokkaido

Twitter/JRHokkaido

無理矢理感が否めません。JR北海道の運行情報を出力したかったんだけど、サービスとしてRSSを提供しているところが見つからず、無理矢理MyRSSを通したんだけれど上手くいきませんでした。
結果的に、JR北海道の運行情報ページをGETして、「遅れに関する情報がありません」という記述が無ければ情報があるとみなす、という...いつかもっとちゃんとしたいです。


#!/usr/bin/perl

use strict;
use Jcode;
use Net::Twitter;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;

my $URL = 'http://mobile.jrhokkaido.co.jp/web/index.asp';

my $proxy = new LWP::UserAgent;
my $req = HTTP::Request->new('GET' => $URL);
my $res = $proxy->request($req);

my $rescon = $res->content;
Jcode::convert(\$rescon, 'utf8');

if ($rescon !~ m/遅れに関する情報はありません/) {
my $twit = Net::Twitter->new(
username=>"JRHokkaido" #ユーザー名
, password=>"*****" #パスワード
);

my $text = '列車の遅れに関する情報があります。http://mobile.jrhokkaido.co.jp/web/index.asp';
Jcode::convert(\$text, 'utf8');
my $result = $twit->update($text);
}

exit;