Izumiのblog

列車の運行情報が
http://transit.livedoor.com/traffic_info/kantou
http://transit.goo.ne.jp/unkou/kantou.html
といった所で展開されていますが、これをPlaggerで取ってくれば、色々と便利そうなので試してみました。

まずWebサイトから情報を取ってくる方法ですが、色々試してみたものの上手くいかなかったので、CustomFeed::TaiyoshaComicを元にして、野良プラグインを作ってみました。

Plagger/Plugin/CustomFeed/LDTraffic.pm
Livedoorの鉄道運行情報　関東を取ってきています。url決め打ちなので適当に直してください。

package Plagger::Plugin::CustomFeed::LDTraffic;
use utf8;
use strict;
use base qw( Plagger::Plugin );

use Plagger::Date;
use Plagger::Util;
use Switch;
use URI;

sub register {
    my ($self, $context) = @_;
    $context->register_hook(
        $self,
        'subscription.load' => \&load,
    );
}

sub load {
    my($self, $context) = @_;

    my $ym = $self->conf->{month} || Plagger::Date->now()->strftime("%y%m");

    my $feed = Plagger::Feed->new;
    $feed->aggregator( sub { $self->aggregate($context, $ym); });
    $context->subscription->add($feed);
}

sub aggregate {
    my ($self, $context, $ym) = @_;

    my $urls = "http://transit.livedoor.com/traffic_info/kantou";　←関東決め打ちなので適当に変えてください
    my $feed = Plagger::Feed->new;
    $feed->link($urls);
    $feed->title("鉄道運行情報");

    my $list = $self->parse(Plagger::Util::load_uri(URI->new($urls)));

    for my $item (@$list) {
        my $entry = Plagger::Entry->new;
        $entry->title($item->{title}."[".$item->{hour}.":".$item->{min}."]");　←titleに時刻を入れています

        $entry->body($item->{body});

        $entry->date(Plagger::Date->strptime("%y%m%d%H%M", $ym.$item->{day}.$item->{hour}.$item->{min}));

        $feed->add_entry($entry);
    }
    $context->update->add($feed);
}

sub parse {
    my ($self, $content) = @_;

    my $list = [];
    while ($content =~ m{
<tr>
.*?<th.*?>(\d{2})/(\d{2}).(\d{2})\:(\d{2})</th>
.*?<td.*?>(.*?)</td>
.*?<td.*?>(.*?)</td>
.*?</tr>
    }gsx) {
        push @$list, {
            month => $1,
            day => $2,
            hour => $3,
            min => $4,
            title => $5,
            body => $6,
        };
    }

    $list;
}

1;

config.yaml
以下の例では、Publish::Twitterを使っていますが、Publish::FeedでRSSを生成しても良いし、Publish::Gmailを使うのも良いかもしれません。

plugins:
  - module: CustomFeed::LDTraffic

  - module: Filter::Rule
    rule:
      expression: $args->{entry}->title =~ m/(京浜東北|東海道)/;　←自分に関係する路線に絞っています
      module: Deduped

  - module: Publish::Twitter
    config:
      username: Twitterのユーザ名
      password: Twitterのパスワード

cronで5分間隔で動かしています。

これで期待通りに動いてくれたのですが…、会社のProxyサーバはTwitterへのアクセスを弾いてしまうので、私の場合はPublish::Twitterの恩恵を受けられないのでした。実際の運用では、Publish::Gmailを使って携帯に飛ばすようにしています。

で、出来たのは良いのですが、まだ私に関係する路線でトラブルが出ていないので、メールが飛んでこないんだな。良いのか悪いのか…。

ちなみに、Twitterで既にhttp://twitter.com/train_kantoが運用されているのを知ったのは、一通り作り終わってからでした…。RSSも配信されているので、RSSリーダーで読むのに便利でしょう。