- 追加された行はこの色です。
- 削除された行はこの色です。
[[Perl]]
-http://nlp.kimura-s.otaru-uc.ac.jp/SearchKeyword/googleMaps.cgi
#!/usr/bin/perl
use CGI;
my $charset="utf-8";
my $title="小樽商科大学";
my $q = new CGI;
print $q->header(-charset=>$charset);
print $q->start_html(-title=>$title, -encoding=>$charset);
my @time = localtime(time);
$time[4]++;
$time[5] += 1900;
foreach(@time){ print "$_/";}
print "<br>$time[5]月$time[4]月$time[3]日<br>\n";
print $q->end_html();
#参考 http://googlemaps.googlermania.com/google_maps_api_v3/1-2.html
print "Content-type: text/html\n\n";
$file = "***.dat";
open(IN,$file);
@data = <IN>;
close(IN);
foreach(@data){
if(/<item>/){
$tmp_lat=0;
$tmp_lon=0;
$tmp_title=0;
}
if(/<title>(.*?)<\/title>/){
$tmp_title=$1;
}
if(/<google:location>iPhone: (\d+\.\d+),(\d+\.\d+)<\/google:location>/){
$tmp_lat = $1;
$tmp_lon = $2;
if($tmp_title){
$lat = $tmp_lat;
$lon = $tmp_lon;
$title = $tmp_title;
}
}
}
print <<EOF;
<html>
<head>
<title>Hello world in Google Maps API version3</title>
<meta name="viewport" content="initial-scale=1.0, user-scalable=no" />
<script type="text/javascript"
src="http://maps.google.com/maps/api/js?sensor=false"></script>
<script type="text/javascript">
function initialize() {
var centerPos = new google.maps.LatLng($lat, $lon);
var mapOptions = {
zoom : 18,
center : centerPos,
mapTypeId: google.maps.MapTypeId.ROADMAP
};
var map = new google.maps.Map(document.getElementById("map_canvas"), mapOptions);
var markerOptions = {
position : centerPos,
map : map,
title : "$title"
};
var marker = new google.maps.Marker(markerOptions);
}
</script>
</head>
<body onload="initialize()">
<div id="map_canvas" style="width:100%;height:100%"></div>
</body>
</html>
EOF