Fork me on GitHub

2008/03/10

Recent entries from same category

  1. Web::Scraperでvim.orgのkarmaを調べる。 Hatena
  2. perldocのbash-completionが激しく便利でうれしょん出た。 Hatena
  3. Perl音痴な私がPerlを使っている理由 Hatena
  4. TatsumakiとDUI Streamを使って画像ストリーミングサーバ作ってみた。 Hatena
  5. のび太の物は俺の物。俺の物は俺の物。 Hatena

はてな
さっそく作ってみた。
Google Japan Blog: Google マップが携帯でも表示できるようになりました
HTTP::MobileAgent::Plugin::Locatorを使って緯度経度を取り、GoogleMapの静的画像を表示するサンプルを作ってみた。
ただGoogleMapの座標指定は測地系だったので
http://minken.net/mt/archives/locations.pl
の一部を使わせて頂きました。
Perlで投影系変換出来るモジュール誰か知りませんか？

ソースは以下の様な感じ。
#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use HTTP::MobileAgent;
use HTTP::MobileAgent::Plugin::Locator;


my $google_map_api_key = "ABQIAAAAS_2fKEdj-fsDOrnYqd4nthTGTkG1t9CC6WQns4yK382vvQcY9RS5JGW4WA0hwZKxfIpKeCjuMOMPIA";

sub geoconv {
    ...
}

sub llh2xyz { # 楕円体座標 -> 直交座標
    ...
}

sub xyz2llh { # 直交座標 -> 楕円体座標
    ...
}

sub deg2dms {
    ...
}

sub dms2deg {
    ...
}

my $q = CGI->new;
my $agent;
my $lat = '';
my $lng = '';
my $location = '';
eval {
  $agent = HTTP::MobileAgent->new;
  $location = $agent->get_location( $q );
  ($lng, $lat) = geoconv($location->lng, $location->lat, $location->datum)
};

print $q->header(-charset=>'Shift_JIS'),<<END;
<html>
<head>
<title>GoogleMap from GPS</title>
</head>
<body>
<h1>What is this?</h1>
Show the Google Map static image from your GPS location.<br />
END

if ($agent && $agent->is_non_mobile) {
  print "<b>Are not mobile agent?</b>";
} else {
  print "<a href=\"device:location?url=gmobile_map.cgi\" lcs>Where?</a>"
    if ($agent->is_docomo);
  print "<a href=\"device:location?url=gmobile_map.cgi\">Where?</a>"
    if ($agent->is_ezweb);
  print "<a href=\"gmobile_map.cgi\" z>Where?</a>"
    if ($agent->is_softbank && !$agent->is_type_3gc);
  print "<a href=\"location:auto?url=gmobile_map.cgi\">Where?</a>"
    if ($agent->is_softbank && $agent->is_type_3gc);
  if ($lat && $lng) {
    print << "END";
<img src="http://maps.google.com/staticmap?center=$lat,$lng&markers=$lat,$lng,red&zoom=18&size=300x200&key=$google_map_api_key"><br />
latitude: $lat<br />
longitude $lng<br />
END
  }
}

print "</body>\n</html>";
若干ずれるのはしょうがないか...
で、動いてる物は
http://mattn.kaoriya.net/cgi-bin/gmobile_map.cgi
携帯端末からアクセス下さい。
キャリア毎のアンカー作ってくれるモジュールも欲しいなぁ...

Google Maps APIプログラミング入門 Google Maps APIプログラミング入門
勝又 雅史
アスキー・メディアワークス / ￥ 3,570 (2010-03-30)
 
発送可能時間：在庫あり。

Posted at 19:18 in ソフトウェア::lang::perl | WriteBacks (17) | Edit
Tagged as: google, gps, map, mobile
Bookmarks: add to hatena add to hatena | add to delicious.com | add to livedoor.clip add to livedoor.clip | add to buzzurl add to buzzurl | add to fc2bookmark add to fc2bookmark | add to Yahoo Bookmark add to Yahoo Bookmark | add to Pookmark add to Pookmark

blog comments powered by Disqus
WriteBacks

グラビアアイドル・希美まゆ「First Impression 希美まゆ」で衝撃のAVデビュー【サンプル動画】

希美まゆＡＶ希美まゆ動画希美まゆ画像希美まゆデビュー希美まゆグラビア希美まゆＤＶＤ希美まゆサンプル希美まゆ

Posted by グラビアアイドル・希美まゆ「First Impression 希美まゆ」で衝撃のAVデビュー【サンプル動画】 at 2009/10/07 (Wed) 10:43:38

この世で最もセクシーな女性ケイト・ベッキンセイル※お宝画像＆映像

イギリスの女優Kate Beckinsale（ケイト・ベッキンセイル）が、Esquire誌(エスクワイア誌)による2009年度の“この世で最もセクシーな女性”に選ばれた。

Posted by この世で最もセクシーな女性ケイト・ベッキンセイル※お宝画像＆映像 at 2009/10/12 (Mon) 15:05:07

【画像】佐々木希おしゃれイズムで開脚時にパンチラ！

得意の変顔を披露し元新体操選手ということで開脚をしてみせたのだがホットパンツの隙間からパンツが見えてるとちょっとした話題になっている。

Posted by 【画像】佐々木希おしゃれイズムで開脚時にパンチラ！ at 2009/10/12 (Mon) 17:57:54

ブログで引退危機発表！グラビアアイドル愛川ゆず季！

ＴＢＳ系深夜番組「崖っぷち」の番組内の企画で、新規で始めたブログを３カ月で２０００万アクセスに到達させないと芸能界を強制引退することになる。

Posted by ブログで引退危機発表！グラビアアイドル愛川ゆず季！ at 2009/10/13 (Tue) 11:12:42

ハイディ・クルム４人目女児出産!!【画像＆動画】

ドイツ人スーパーモデルのハイディ・クルム（Heidi Klum）が女の子を出産した!!! 9日ロサンゼルスの医療センター「シーダーズ・サイナイ」で、女児を出産し,4人目となる子供で、名前はルー・サミュエル(Lou Samuel)と名づけらた。

Posted by ハイディ・クルム４人目女児出産!!【画像＆動画】 at 2009/10/13 (Tue) 14:26:43

エヴァ・アムッリ・ストリッパー役でトップレスヌード

アメリカの女優・Eva Amurri （エヴァ・アムッリ）が
TVドラマ「Californication」でストリッパー役を演じているシーンから、貴重なトップレスヌードがお披露目されてる。

Posted by エヴァ・アムッリ・ストリッパー役でトップレスヌード at 2009/10/13 (Tue) 16:34:48

内田恭子CMヌード撮影映像流出!!!【画像＆動画】

フリーに転身した元女子アナとしては、堂々の勝ち組となり昨年の年収は1億円を突破したという。その勢いは衰えることなく、さらに他との差を広げそうなくらい絶好調だ。そんな内田に、なんと全裸CMの噂があるのだが……。

Posted by 内田恭子CMヌード撮影映像流出!!!【画像＆動画】 at 2009/10/14 (Wed) 17:51:02

放送事故！「ミヤネ屋」で性器がモロにうつる！

日本テレビ系（読売テレビ）「ミヤネ屋」で、性器がモロに映し出される放送事故があったと話題になっている。

Posted by 放送事故！「ミヤネ屋」で性器がモロにうつる！ at 2009/10/16 (Fri) 11:54:08

中川翔子ラブホ全裸流出【画像＆動画】

10月12日放送のバラエティ番組『月光音楽団』にゲストで呼ばれた中川翔子に藤原竜也が急接近したことで交際に発展するか注目あびていたショコタンだったが鐔ワ愁鐔イい弔虜△ǂ鷲毀世世❶▲薀屮曠謄襪任料翰臚鯸畛僂ⓝ倎个靴討靴泙辰拭▷▷�

Posted by 中川翔子ラブホ全裸流出【画像＆動画】 at 2009/10/16 (Fri) 13:07:50

「ウェルかめ」のヒロイン倉科カナイメージＤＶＤで乳首が見えちゃった【画像・動画】

ＮＨＫ朝の連続テレビ小説「ウェルかめ」が歴代２番目に低い初回視聴率１６．０％（ビデオリサーチ調べ、関東地区）でスタートしたが、２週目に２０．６％の高視聴率を記録した。

Posted by 「ウェルかめ」のヒロイン倉科カナイメージＤＶＤで乳首が見えちゃった【画像・動画】 at 2009/10/17 (Sat) 19:11:54

【画像】おかもとまり自身のブログですっぴん披露！広末凉子に似てると話題沸騰！

アメーバブログ芸人ランキングで上位にランクインするなど、このところ人気上昇中の美人モノマネ芸人おかもとまり(19)が、自身のブログですっぴん顔を披露している。

Posted by 【画像】おかもとまり自身のブログですっぴん披露！広末凉子に似てると話題沸騰！ at 2009/10/19 (Mon) 12:22:09

NHKのSHIBUYA DEEP Aでモーニング娘。道重さゆみ・爆弾発言！【画像・動画】

最近では単独での出演も増えて活躍の幅を広げる、モーニング娘。の道重さゆみ。NHKの「SHIBUYA DEEP A」第101回に出演した時の発言が話題になっている。

Posted by NHKのSHIBUYA DEEP Aでモーニング娘。道重さゆみ・爆弾発言！【画像・動画】 at 2009/10/20 (Tue) 17:09:06

広末涼子「第２２回東京国際映画祭」でハプニング！！ニップレス写っちゃった【画像・動画】

10/17に行われた「第２２回東京国際映画祭」で、広末涼子（29）にハプニング！ドレスの間からニップレス（乳首を隠す絆創膏状のシート）がはっきり写ってしまった。

Posted by 広末涼子「第２２回東京国際映画祭」でハプニング！！ニップレス写っちゃった【画像・動画】 at 2009/10/20 (Tue) 19:22:27

酒井若菜最後の写真集「月刊 酒井若菜」を発売をブログで発表！「月刊 酒井若菜」11/111発売

過激な写真が掲載されることでも知られる新潮社の「月刊」シリーズから、「月刊 酒井若菜」を発売することを公式ブログで発表している。

Posted by 酒井若菜最後の写真集「月刊 酒井若菜」を発売をブログで発表！「月刊 酒井若菜」11/111発売 at 2009/10/20 (Tue) 19:36:38

中国・南少林寺の僧が秘術披露・水上走行で新記録【画像・動画】

福建省の泉州南少林寺の武道僧である釈理亮さんは10月19日、 伝説の少林秘術「水上走行」に挑戦し、自己最高となる記録をたたき出した。

Posted by 中国・南少林寺の僧が秘術披露・水上走行で新記録【画像・動画】 at 2009/10/21 (Wed) 16:23:12

若村真美・話題の過激過ぎ映像『17の御法度』お宝ハプニングシーン【画像＆動画】

オルスタックピクチャーズ人気の「１７の御法度」シリーズが過激過ぎと話題騒然！バイト感覚の気軽さで出演したスレンダーで普通に可愛い若村真美だったが

Posted by 若村真美・話題の過激過ぎ映像『17の御法度』お宝ハプニングシーン【画像＆動画】 at 2009/10/27 (Tue) 12:59:26

戸田恵梨香・村上信五、堂々と路チュー【画像＆動画】

女優・戸田恵梨香（21）と以前から交際が噂されていた関ジャニ∞の村上信五（27）が堂々の交際宣言をしたと、29日発売の「女性セブン」が写真付きでスクープした。

Posted by 戸田恵梨香・村上信五、堂々と路チュー【画像＆動画】 at 2009/10/29 (Thu) 13:27:44

TrackBack ping me at
Post a comment

writeback message: Ready to post a comment.