Big Sky :: GoogleMapが静的画像で使える様になったのでGPSから取得した位置情報から地図を出すCGI作ってみた

2012/02/06

GoogleMapが静的画像で使える様になったのでGPSから取得した位置情報から地図を出すCGI作ってみた

さっそく作ってみた。

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

携帯端末からアクセス下さい。
キャリア毎のアンカー作ってくれるモジュールも欲しいなぁ...

AWSWORD:google_map

Posted at 16:55 | WriteBacks () | Edit

Edit this entry...

wikieditish message: Ready to edit this entry.

New Name:

Title:

Body:

meta-tags: mobile, gps, google, map
meta-creation_date: 2012-02-06T16:55:40+09:00

さっそく作ってみた。 
<blockquote class="mention">
<a href="http://googlejapan.blogspot.com/2008/03/google_1433.html" class="external" target="_blank" rel="noopener noreferrer">Google Japan Blog: Google マップが携帯でも表示できるようになりました</a>
</blockquote>
HTTP::MobileAgent::Plugin::Locatorを使って緯度経度を取り、GoogleMapの静的画像を表示するサンプルを作ってみた。 
ただGoogleMapの座標指定は測地系だったので 
<code class="code">
http://minken.net/mt/archives/locations.pl
</code>
の一部を使わせて頂きました。 
Perlで投影系変換出来るモジュール誰か知りませんか？ 
 
ソースは以下の様な感じ。 
<code class="code">
#!/usr/bin/perl 
 
use strict; 
use warnings; 
use CGI; 
use HTTP::MobileAgent; 
use HTTP::MobileAgent::Plugin::Locator; 
 
 
my&nbsp;$google_map_api_key&nbsp;= &quot;ABQIAAAAS_2fKEdj-fsDOrnYqd4nthTGTkG1t9CC6WQns4yK382vvQcY9RS5JGW4WA0hwZKxfIpKeCjuMOMPIA&quot;; 
 
sub&nbsp;geoconv&nbsp;{ 
&nbsp;&nbsp;&nbsp;&nbsp;... 
} 
 
sub&nbsp;llh2xyz&nbsp;{ # 楕円体座標 -&gt; 直交座標 
&nbsp;&nbsp;&nbsp;&nbsp;... 
} 
 
sub&nbsp;xyz2llh&nbsp;{ # 直交座標 -&gt; 楕円体座標 
&nbsp;&nbsp;&nbsp;&nbsp;... 
} 
 
sub&nbsp;deg2dms&nbsp;{ 
&nbsp;&nbsp;&nbsp;&nbsp;... 
} 
 
sub&nbsp;dms2deg&nbsp;{ 
&nbsp;&nbsp;&nbsp;&nbsp;... 
} 
 
my&nbsp;$q&nbsp;= CGI-&gt;new; 
my&nbsp;$agent; 
my&nbsp;$lat&nbsp;= ''; 
my&nbsp;$lng&nbsp;= ''; 
my&nbsp;$location&nbsp;= ''; 
eval&nbsp;{ 
&nbsp;&nbsp;$agent&nbsp;= HTTP::MobileAgent-&gt;new; 
&nbsp;&nbsp;$location&nbsp;= $agent-&gt;get_location( $q&nbsp;); 
&nbsp;&nbsp;($lng, $lat) = geoconv($location-&gt;lng, $location-&gt;lat, $location-&gt;datum) 
}; 
 
print&nbsp;$q-&gt;header(-charset=&gt;'Shift_JIS'),&lt;&lt;END; 
&lt;html&gt; 
&lt;head&gt; 
&lt;title&gt;GoogleMap from GPS&lt;/title&gt; 
&lt;/head&gt; 
&lt;body&gt; 
&lt;h1&gt;What is this?&lt;/h1&gt; 
Show the Google Map static image from your GPS location.&lt;br /&gt; 
END 
 
if&nbsp;($agent&nbsp;&amp;&amp; $agent-&gt;is_non_mobile) { 
&nbsp;&nbsp;print&nbsp;&quot;&lt;b&gt;Are not mobile agent?&lt;/b&gt;&quot;; 
} else&nbsp;{ 
&nbsp;&nbsp;print&nbsp;&quot;&lt;a href=\&quot;device:location?url=gmobile_map.cgi\&quot;&nbsp;lcs&gt;Where?&lt;/a&gt;&quot; 
&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;($agent-&gt;is_docomo); 
&nbsp;&nbsp;print&nbsp;&quot;&lt;a href=\&quot;device:location?url=gmobile_map.cgi\&quot;&gt;Where?&lt;/a&gt;&quot; 
&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;($agent-&gt;is_ezweb); 
&nbsp;&nbsp;print&nbsp;&quot;&lt;a href=\&quot;gmobile_map.cgi\&quot;&nbsp;z&gt;Where?&lt;/a&gt;&quot; 
&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;($agent-&gt;is_softbank &amp;&amp; !$agent-&gt;is_type_3gc); 
&nbsp;&nbsp;print&nbsp;&quot;&lt;a href=\&quot;location:auto?url=gmobile_map.cgi\&quot;&gt;Where?&lt;/a&gt;&quot; 
&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;($agent-&gt;is_softbank &amp;&amp; $agent-&gt;is_type_3gc); 
&nbsp;&nbsp;if&nbsp;($lat&nbsp;&amp;&amp; $lng) { 
&nbsp;&nbsp;&nbsp;&nbsp;print&nbsp;&lt;&lt; &quot;END&quot;; 
&lt;img src=&quot;<a href="http://maps.google.com/staticmap?center=">http://maps.google.com/staticmap?center=</a>$lat,$lng&amp;markers=$lat,$lng,red&amp;zoom=18&amp;size=300x200&amp;key=$google_map_api_key&quot;&gt;&lt;br /&gt; 
latitude: $lat&lt;br /&gt; 
longitude $lng&lt;br /&gt; 
END 
&nbsp;&nbsp;} 
} 
 
print&nbsp;&quot;&lt;/body&gt;\n&lt;/html&gt;&quot;; 
</code>
若干ずれるのはしょうがないか... 
で、動いてる物は
<blockquote>
<a href="http://mattn.kaoriya.net/cgi-bin/gmobile_map.cgi">http://mattn.kaoriya.net/cgi-bin/gmobile_map.cgi</a>
</blockquote>
携帯端末からアクセス下さい。 
キャリア毎のアンカー作ってくれるモジュールも欲しいなぁ... 
 
AWSWORD:google_map

Excerpt:

さっそく作ってみた。Google Japan Blog: Google マップが携帯でも表示できるようになりましたHTTP::MobileAgent::Plugin::Locatorを使って緯度経度を取り、GoogleMapの静的画像を表示するサンプルを作ってみた。ただGoogleMapの座標指定は測地系だったのでhttp://minken.net/mt/archives/locations.plの一部を使わせて頂きました。Perlで投影系変換出来るモジュール誰か知りませんか？ソースは以下の様な感じ。#!/usr/bin/perluse 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. ENDif ($agent && $agent->is_non_mobile) {  print "Are not mobile agent?";} 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"> latitude: $lat longitude $lng END  }}print "</body>\n</html>";若干ずれるのはしょうがないか...で、動いてる物はhttp://mattn.kaoriya.net/cgi-bin/gmobile_map.cgi携帯端末からアクセス下さい。キャリア毎のアンカー作ってくれるモジュールも欲しいなぁ...AWSWORD:google_map

Ping URLs:

File:

Password:

A quick preview will be rendered here when you click "Preview" button.