
#!/usr/bin/perl -T
use strict;
use warnings;
use CGI;
my $appid = "YOUR APPID";
my $q = new CGI;
my $z = $q->param('z') || 14; # 拡大縮小(Zoom)
my $latlon = $q->param('latlon') || "35.65111,139.70111";
my $d = 10**(($q->param('d') || 3) - 1); # 小数点d桁以下は切り捨て
my $w = $q->param('width') || 400;
my $h = $q->param('height') || 400;
my ($py1, $px1) = map {int($_*$d)/$d} split(",", $latlon);
my ($py2, $px2) = ($py1 + 1/$d, $px1);
my ($py3, $px3) = ($py2, $px1 + 1/$d);
my ($py4, $px4) = ($py1, $px3);
my $murl = "http://map.olp.yahooapis.jp/OpenLocalPlatform/V1/static"
."?appid=$appid"
."&pin1=$py1,$px1"
."&pin2=$py2,$px2"
."&pin3=$py3,$px3"
."&pin4=$py4,$px4"
."&z=$z&width=$w&height=$h";
print qq(Location: $murl\n\n);
(ライセンス的なもの:http://lifehacks.ta2o.net/byebye-copyright.html)

カラスの死骸は反物質と対消滅反応を起こして消滅するのです。
と、いうわけで一言で言ってしまうとトンデモ本です。
あまりにしょうもない内容ばかりなのでツッコむ気力すら湧きません。
この本を読んで首を傾げなかったあなた、自分で考える習慣をつけましょう。




