(perl script) get a stock price data from stocks.finance.yahoo.co.jp

scra.pl

#!/usr/bin/perl

use strict;
use warnings;
use Web::Scraper;
use URI;
use Encode;

my $scraper = scraper {
process '//dl[@class="stocksInfo"]/dt[1]','numb' => 'TEXT';
process '//table[@class="stocksTable"]/tr[1]/th[1]','name' => 'TEXT';
process '//table[@class="stocksTable"]/tr[1]/td[2]','price' => 'TEXT';
process '//dl[@class="stocksInfo"]/dd[3]/span[1]','jikoku' => 'TEXT';
};

my $res = $scraper->scrape(URI->new("http://stocks.finance.yahoo.co.jp/stocks/detail/?code=9501.t"));

print $res->{numb}."\n";
#print encode('shift-jis',$res->{name})."\n";
print encode('sjis',$res->{name})."\n";
print $res->{price}."\n";
print $res->{jikoku}."\n";