Yusukebe::Tech

あるアイデアがあってGoogle Maps APIで取得した緯度経度情報から住所を取得したいんだけど、 結局これが一番簡単な方法なのかも。 緯度経度を元にYahoo!地図へのURLを生成してそのページのタイトルを引っこ抜く。 日本にしか対応していないのと、精度が悪い(？)という問題があるけど、結構いける。

#!/usr/bin/perl

use strict;
use LWP::Simple;
use HTML::TokeParser;

my $nl;#緯度
my $el;#経度
my $address;

#江ノ島付近
$nl = "35.29892761543741";
$el = "139.48415994644165";

my $url = "http://map.yahoo.co.jp/pl¥?nl=$nl&el=$el";
my $data = get($url);
my $p = HTML::TokeParser->new(¥$data);
if($p->get_tag("title")){
  $address = $p->get_trimmed_text;
}
$address =~ s/(Yahoo!地図情報)|( - )|(の周辺地図)//g;
print "$url¥n";
print "$address¥n";

実行結果はこんな感じ

http://map.yahoo.co.jp/pl?nl=35.29892761543741&el=139.48415994644165
神奈川県藤沢市江の島２丁目