- 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に置きました。