- 426 名前：nobodyさん mailto:sage [2006/10/31(火) 16:11:02 ID:???]
- 下のコードはgoogleに怒られる？
for (@addr) {
my $addr = jcode($_)->utf8;
$addr =~ s/(\W)/'%' . unpack('H2', $1)/eg;
my $res = get("maps.google.co.jp/maps?q=$addr");
if($res =~ /center: {lat: (.*?),lng: (.*?)}/si){
my ($lat, $lng) = ($1, $2);
}
}
