気象庁の東京の明日の天気をスクレイピングのメモ

Perl

気象庁 | 天気予報 ： 東京都から降水確率を取得。
WEB::Scraperのコマンドラインからのコード生成ってしたことがなくて、

scraper> c all

で吐き出せるということを知って簡単すぎて感動した。


scrape_rank.pl

#!usr/bin/perl

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

my $uri = URI->new("http://www.jma.go.jp/jp/yoho/319.html");
my $scraper = scraper {
    process '/html/body/div[2]/div[2]/div[5]/table/tbody/tr[3]/td[2]/div/table/tbody/tr/td[2]', 'list[]' => 'TEXT';
    process '/html/body/div[2]/div[2]/div[5]/table/tr[3]/td[2]/div/table/tbody/tr/td[2]', 'list[]' => 'TEXT';
    process '/html/body/div[2]/div[2]/div[5]/table/tr[3]/td[2]/div/table/tr/td[2]', 'list[]' => 'TEXT';
};
my $result = $scraper->scrape($uri);

foreach my $per_list (values %$result){
    foreach my $value ( @$per_list ){
        print $value, "\n";
    }
}

実行結果

10%
10%
20%
30%