get_alphabets.pl

#!/usr/bin/perl
# get_alphabets.pl
use strict;
use warnings;

use lib 'lib';
use Geography::JapanesePrefectures;
use WebService::Simple;
use Data::Dumper;

my $api = WebService::Simple->new(
    base_url => 'http://maps.google.com/maps/geo',
    response_parser => 'XML::LibXML',
    param => {
        output => 'xml',
    }
);

my $infos = Geography::JapanesePrefectures->prefectures_infos();

for my $pref (@$infos) {
    my $res = $api->get({q => $pref->{name}});
    if ($res->is_success) {
        my $geo = eval { $res->parse_response->documentElement };
        if ($geo && $geo->getElementsByTagName('code')->shift->textContent eq '200') {
            my $alphabet = $geo->getElementsByTagName('AdministrativeAreaName')->shift->textContent;
            $alphabet =~ s/ Prefecture$//;
            $pref->{alphabet} = $alphabet;
        }
    }
    sleep 1;
}
warn Dumper $infos;