Perl - Google に無線 LAN アクセスポイントの場所を聞く - skaji's blog

勉強のため、 Google に無線 LAN アクセスポイントの MAC アドレスを 2 つを投げて、住所を得るスクリプトを Perl で書いてみた。 POST するデータをハッシュのリファレンスで送りたかったけど、それだとエラーがでたので（なぜ？）、文字列にしておいた。 元ネタは 高木浩光＠自宅の日記 - Wi-FiのMACアドレスはもはや住所と考えるしかない Google Gears WiFi Geolocation API query // IndonesianCoder Advisories #!/usr/bin/env perl use strict; use warnings; use JSON; use Data::Dumper; use utf8; use Encode; use LWP::UserAgent; $Data::Dumper::Indent = 1; $Data