- Web::Scraperでgooの気温情報を抽出。
- google chart APIに渡す値を整理
こちらを参考にさせていただいた。感謝。 - グラフを出力

use strict;
#!/usr/bin/perl -w
use strict;
use warnings;
use Web::Scraper;
use URI;
my $uri = URI->new("http://weather.goo.ne.jp/past/2011/08/662/index.html");
my $scraper = scraper {
process '/html/body/div[2]/div/div/div[2]/div/div/div/div/table[2]/tr/td/span[1]','list2[]' => 'TEXT';
};
my $result = $scraper->scrape($uri);
for(my $i=0;$i<35;$i++){
print $result->{list2}[$i]."\n";
}
exit;
ソースはgithubに置きました。