住所文字列を受け取って緯度経度を取得し地図を表示するサンプル CGI
2008-05-07-2
[Programming]
入力として住所文字列(例:渋谷区恵比寿)が渡されると、
API経由で緯度経度を取得し、
それをもとに alpslab base の地図ページを表示するという
サンプル CGI (perl) です。
設置例です:
- 地図検索サンプル
http://chalow.net/misc/geojump.html
緯度経度取得部分は、特に公開されているAPIではないので
(Firefox の Live HTTP Headers で見れますが)自己責任で。
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 で見れますが)自己責任で。