Big Sky :: Perlでブックオフの店舗を検索し、結果をハッシュの配列に格納する

HTML::TreeBuilderは便利だけど、データ構造がロジックになってしまうのが難点。

Perlでブックオフの店舗を検索し、結果をハッシュの配列に格納する - As a Futurist...

HTMLを解析する練習です。Perlの配列とかハッシュの扱いも少し分かりました。以下のブックオフの検索をPerlでやっただけです。
http://blog.riywo.com/2008/03/31/164327

ってことでWeb::Scraperで。


#!/usr/bin/perl -w



use strict;

use warnings;

use URI;

use Web::Scraper;

use YAML;



my $str = shift || '新宿';

my $uri = URI->new( 'http://www.bookoff.co.jp/shop/shop.php' );

$uri->query_form(

    action => 'search',

    station => $str,

    shop_name => $str,

);



warn Dump scraper {

    process '//tr[td]', 'res[]' => scraper {

        process '//td[1]', name => 'TEXT',

        process '//td[2]', time => 'TEXT',

        process '//td[3]', tel => 'TEXT',

        process '//td[4]', place => 'TEXT',

    };

    result qw/res /;

}->scrape( $uri );