【perl】googlemapAPIをさらにいじってみる

perl

地図を立体的にしてみたり、航空写真とかが選べるボタンをつけてみたり。以前に書いた、APIのプログラムの一部のみを書いています。

print <<"HTML";
<html>
<head>
<script src="http://maps.google.com/maps?file=api&amp;v=2&amp;sensor=true_or_false&amp;key=ABQIAAAAXhkFw77aLRSh_UNrhJEHART2yXp_ZAY8_ufC3CFXhHIE1NvwkxRkGUIY1TSG7kQX0tzrz-PT5M-uEw" type="text/javascript"></script>
<script type="text/javascript">

    function initialize() {
      if (GBrowserIsCompatible()) {
        var map = new GMap2(document.getElementById("map_canvas"));
        
        
        map.addControl(new GMapTypeControl());
		
        map.addControl(new GLargeMapControl());
		
        
HTML
my $shop = $res->{results}{shop}[0];
my $lat = $shop->{lat};
my $lng = $shop->{lng};

print "map.setCenter(new GLatLng($lat, $lng), 10);\n";

#地図の立体表示
#print "map.setMapType(G_PHYSICAL_MAP)";

#衛星写真で表示
#print "map.setMapType(G_SATELLITE_MAP)";


foreach my $shop (@{$res->{results}{shop}}){
   print qq(
var point = new GLatLng($shop->{lat},$shop->{lng});
var marker = new GMarker(point);
map.addOverlay(marker);

marker.bindInfoWindow(document.createTextNode("$shop->{name}"));

);
   #print "var point = new GLatLng($shop->{lat},$shop->{lng});\n";
   #print "map.addOverlay(new GMarker(point));\n";
   #print "marker.openInfoWindow(point, document.createTextNode(\"HELLO\"));\n";
}


print <<"HTML2";

      }
    }

    </script>

いやしかし、htmlとCSSをもう少し勉強したほうがいいかも。デザインに凝ろうと思っても、知識が乏しくて凝れない。4月に通った専門学校の先生に紹介してもらった、htmlとCSSの本でもう少し深く勉強することにします。