June 22, 2006 11:34 AM by funami

フナミタカオです
Where2.0で仕入れた、Google　Map、Google EarthのKMLの有用性とためしてみたく、今回はAPIが公開されたじゃらんAPIをつかって、試してみました。


じゃらんAPI->KMLを生成し、そのKMLをGoogleMapとGoogleEarthで開いてみた。
いけました。
結構感動です。

↑北海道にじゃらんの宿がならんだ！

そして、GoogleMapでも、MAPの検索窓にKMLファイルを指定すれば、マップ上に表示されるという裏技（もちろん、オフィシャルに公開されているけど）をつかって、GoogleMap上でも表示できました。
じゃらん.net掲載の北海道の宿・ホテル100件
↑このリンクで表示されます。

実装は結構シンプルです

じゃらんAPIからJSONオブジェクトを出力する、スクリプトを以前公開しましたが、そのスクリプトを拡張しています。

#!/usr/bin/perl -w


#じゃらん宿表示API活用サンプル
#XMLをJSONに変換
#じゃらんの緯度経度をGoogleでそのままつかえる緯度経度に変換
#
#フナミタカオ＠たたみラボ
#2006/06/22
#このソースは、コピー改変していただいてかまいません。どうぞ、じゃらん宿表示APIをご活用ください。
#じゃらん宿表示APIの詳細は　http://jws.jalan.net/ws/viw/U01001

use strict;
use utf8;
use LWP::Simple;
use XML::Simple;
$XML::Simple::PREFERRED_PARSER = 'XML::Parser';
use JSON;
use CGI::Carp qw(fatalsToBrowser);
use Location::GeoTool;	#ココギコさんのGeoToolを使わせていただいています。
#http://www.annocpan.org/~KOKOGIKO/Location-GeoTool-1.98/lib/Location/GeoTool/Japanese.pod


my $xs = XML::Simple->new();

#QUERY_STRINGを取得
my $query_string = $ENV{'QUERY_STRING'};
if (!$query_string ){
	$query_string = "key=guest&pref=010000&l_area=012900&s_area=012911&h_type=1&start=1&count=1";

}

#じゃらんからデータを取得
my $url = "http://jws.jalan.net/APILite/HotelSearch/V1/?pict_size=1&$query_string";
my $res = get($url);
my $resRef = $xs->XMLin($res,ForceArray => ['Hotel']);
$resRef->{request_url} = $url;

#必要な情報を用いて、再構築、座標系の変換もここで行う。
#じゃらんは、測地系：日本、単位：ミリ秒（非常に目面しいですねえ...)
#Googleは　　測地系：世界、単位：度
foreach my $hotel (@{$resRef->{Hotel}}){
	if ($hotel->{Y} == 999999999 || $hotel->{X} == 999999999){
		($hotel->{lat},$hotel->{lng}) = (-1,-1);
	}else{
		my $obj = Location::GeoTool->create_coord($hotel->{Y}/1000,$hotel->{X}/1000,'tokyo','second');
		 ($hotel->{lat},$hotel->{lng}) = $obj->datum_wgs84->format_degree->array;
	}
}
	
#JSONで戻す
if($query_string =~ /JSON=/){
	my $resJs = objToJson($resRef);
	utf8::encode($resJs);
	print "Content-Type: text/javascript; charset=utf-8\n\n";
	print $resJs."\n";
}elsif($query_string =~ /KML=/){
	#KMLへコンバージョン
	my $kmlRef = {Folder=>{Placemark => []}};
	my $folder = $kmlRef->{Folder};
	$folder->{name} = "jalan API -> KML Sample";
	$folder->{description} = "jalan API to KML";
	foreach my $hotel (@{$resRef->{Hotel}}){
		next if ($hotel->{lat} == -1);
		my $imgtag = '' if ($hotel->{PictureURL});
		my $Placemark = 
			{
				description => ''.$hotel->{HotelCatchCopy}.'
'.$hotel->{HotelCaption}.'
'.$hotel->{}.'
じゃらんで詳細を見る
]]>',
				name				=> $hotel->{HotelName},
				LookAt			=> {
					longitude	=> $hotel->{lng},
					latitude	=> $hotel->{lat},
					range			=> 0,
					tilt			=> 0,
				},
				Point				=> {
					coordinates	=> $hotel->{lng}.','.$hotel->{lat},
				}
			};
		push(@{$folder->{Placemark}},$Placemark);
	}
	
	my $xml = $xs->XMLout($kmlRef,NoAttr=>1,RootName=>'kml');
	print "Content-Type: text/kml; charset=utf-8\n";
	print "Content-Disposition: attachment; filename=\"yado.kml\"\n\n";
	my $head = qq(\n);
	$xml = $head . $xml;
	print $xml;
}else{
	my $xml = $xs->XMLout($resRef,NoAttr=>1,RootName=>'Results');
	print "Content-Type: text/xml; charset=utf-8\n\n";
	my $head = qq(\n);
	$xml = $head . $xml;
	print $xml;
	
}

・descriptionの中に、Htmlのタグを埋め込んでいます。ここがちょっと面倒。この内容がGoogleMapのフキダシに出力されます。
・じゃらんAPIが返す、HotelタグをループでPlacemarkに変えてゆけばOKです。
・GoogleMapに読み込ませるには
print "Content-Type: text/kml; charset=utf-8\n";
print "Content-Disposition: attachment; filename=\"yado.kml\"\n\n";
として、Content-Dispositionでファイル名とContent-Typeで text/kmlを指定する。これをやっておかないと、GoogleMapは読み込んでくれません。
・GoogleMapが読み込むKMLのPlaceMarkの数は49件以下らしいです。50件以上は表示されません。


KMLを駆使すれば、もっと拡張は可能だとおもいます。
ひいき続きいろいろ試してみたいです。
参考
Ogawa::Memoranda
Ajaxを使ってKMLをGoogle Maps上にマップする
↑サンプルのKMLファイル助かりました
Google Earth KML ドキュメント
http://earth.google.com/kml/index.html
グーグルアース