古い記事
ランダムジャンプ
新しい記事
入力として住所文字列(例:渋谷区恵比寿)が渡されると、
API経由で緯度経度を取得し、
それをもとに alpslab base の地図ページを表示するという
サンプル CGI (perl) です。

#!/usr/bin/perl -T
use strict;
use warnings;
use CGI;
use URI::Escape;
use LWP::Simple;

my $q = new CGI;
my $ek = URI::Escape::uri_escape($q->param('q') || "");
my $apiurl = "http://base.alpslab.jp/position.rb?adr=$ek";
my $rslt = get($apiurl) || "";
my $jumpto = "http://base.alpslab.jp/";
$jumpto .= "?p=$1,$2" if $rslt =~ m{<coordinates>(.+?),(.+?)<};
print $q->header(-status => "300 Moved Permanently",
                 -type => "text/html", -charset => 'UTF-8',
                 -location => $jumpto);

設置例です:
- 地図検索サンプル
  http://chalow.net/misc/geojump.html

緯度経度取得部分は、特に公開されているAPIではないので
(Firefox の Live HTTP Headers で見れますが)自己責任で。