Perl でyahooのページから株価を取得する

perl でyahooのページから株価を取得するサンプル（以下のサンプルでは、東京電力の株価を取得して表示）

	#!/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";

view raw scra.pl hosted with ❤ by GitHub

以前にもWeb::Scraperを使った似たような内容の投稿を書いています。
http://chaos-fractal.blogspot.jp/2011/12/perl.html