#!/usr/bin/perl -w
# geocoder.cgi - Simple Geocoder powered by Google Maps
# Hirotaka Ogawa (hirotaka.ogawa at gmail.com)
use strict;
use CGI;
use LWP::Simple;
use URI::Escape;
my $url;
my $q = CGI->new;
$q->charset('utf-8');
$url = $q->url;
my $address = $q->param('address') || '';
$address =~ s/^\s+//;
$address =~ s/\s+$//;
if ($address) {
my $res = get("http://maps.google.co.jp/maps?q=" . uri_escape($address) .
"&output=kml");
if ($res) {
my ($addr) = $res =~ /address>([^<]*)/is;
$addr =~ s/^（日本）//;
$addr =~ s/^日本//;
my ($lon, $lat, $alt) = $res =~ /coordinates>(.*),(.*),(.*)
Simple geocoder powered by Google Maps
Simple geocoder powered by Google Maps
HTML
}
sub show_coords {
my ($addr, $lat, $lon) = @_;
print "Content-type: text/xml\n\n";
print <
$addr
$lat
$lon
RDF
}