緯度・経度から住所を検索

http://wiki.knya.net/wiki.cgi?page=invgeocoder
また、webサービスではないが、
Yahoo!地図を利用して、緯度経度から住所を取得する方法もある。

#!/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://yusukebe.com/tech/archives/20060917/160621.html

yusukebe.com

その他