Yahoo! ファイナンス変った？

perl stock

Yahoo! ファイナンスから持ち株の合計評価額を取得してはてなグラフに登録するようにしてあったのだけど、何か変わったのか最近うまく動いていなかったみたい。
center タグって久々にみた希ガス。

#!/usr/bin/perl
use strict;
use warnings;

use URI;
use Readonly;
use DateTime;
use LWP::UserAgent;
use Web::Scraper;
use YAML;

Readonly my $USERNAME => 'hetappi';
Readonly my $PASSWD   => 'xxxxxxx';
Readonly my $GRAPH    => 'stock';
Readonly my @STOCKS   => (
  ['2121.t', 5], ['3715.t', 1]);

my $ua = LWP::UserAgent->new(keep_alive => 1);
$Web::Scraper::UserAgent = $ua;

my $ws = scraper {
  process
    '//center/div[@class="invest"]/table[2]/tr[2]/td[5]/b',
    price => [ 'text', sub { s/,//g } ];
};

my $price = 0;
foreach my $stock(@STOCKS) {
  $price +=
    $ws->scrape(URI->new('http://quote.yahoo.co.jp/q?s=' . $stock->[0]))->{price}
      * $stock->[1];
}

$ua->credentials('graph.hatena.ne.jp:80', '', $USERNAME, $PASSWD);
my $res = $ua->post(
  'http://graph.hatena.ne.jp/api/post',
  { graphname => $GRAPH, date => DateTime->now->ymd, value => $price });

順調に下がってる…。
stock