Google Mapsにマッピングしようとして、住所情報を取得するPerlスクリプトを作成してみました(スターバックスはちょっと難しいので後でやる)。

Web::Scraperは便利だ♪

# === Libraries ===
use strict;
use warnings;
use URI;
use Web::Scraper;
use YAML;
use Encode;
use utf8;
my @address;
# === Main part ===
my $frame = scraper {
process '//td[@class="line_a" and @bgcolor="#ffffff"]//a',
'shop[]' => '@href';
};
my $res =
$frame->scrape( URI->new("http://www.ginza-renoir.co.jp/renoir/index.htm") );
# print encode('utf8', YAML::Dump($result->{body}));
foreach my $x ( @{ $res->{shop} } ) {
my $main = scraper {
process '//td[@bgcolor="#ffffff" and @align="left"]',
'shopinfo[]' => 'TEXT';
};
my $part = scraper {
process
'/html/body/center[2]/center/table/tbody/tr/td[2]/table/tbody/tr/td/table/tbody',
'shop' => $main;
result 'shop';
};
my $result = $part->scrape(
URI->new($x) );
foreach my $y ( @{ $result->{shopinfo} } ) {
push(@address, encode('utf8', $y)) if ($y =~ /^東京都/);
push(@address, encode('utf8', $y)) if ($y =~ /^神奈川県/);
}
foreach (@address) {
print("$_\n");
}
#    print encode( 'utf8', YAML::Dump($result) );
}