携帯の位置情報使った日記

雑記

携帯の位置情報使って外出先のその場に日記とか写真アップするツールつくろーかしら


と何となく思い立ったのが2時間前
やっぱさすが京ぽん、無駄にその辺の情報が多い(^-^;


結構メドたちそう、後は地理データがそろえれるかだけど(やっぱリアルっぽいほうがいい)
やっぱ日の本の特に地理情報「だけ」はすごい!!えらいぞお役人(・v・)


前準備に参考情報あさってみた↓





京ぽんとか
http://location.request/dummy.cgi?my=http://xxx.org/&pos=$location
ただし$locationのフォーマットが不明


W-ZERO3とか(W-SIM?)
com1ポートに接続し
AT@LBC1
AT@LBC?
郵便番号と経度緯度(Exx:yy:zz、Nxx:yy:zz)が手に入った
10進少数に直すには N=xx+yy/60+zz/(60^2)


経度緯度の読み方
http://www.aokids.jp/others/keiido.html


位置参照情報
http://nlftp.mlit.go.jp/isj/
実際のファイルへのパス(H17 各都道府県の全市区町村)
http://nlftp.mlit.go.jp/isj/dls/data/04.0a/01000-04.0a.zip
http://nlftp.mlit.go.jp/isj/dls/data/04.0a/47000-04.0a.zip


perlでファイルをかき集めるスクリプト(長すぎやろ・・・orz)
#! perl
use Archive::Zip;


my $map_file = '%%_2005.csv';
my $map_arch = '%%000-04.0a.zip';
my $map_web = 'http://nlftp.mlit.go.jp/isj/dls/data/04.0a/';


unlink "all_map.csv";
foreach (1..47)
{
my $f = $map_file;
my $arch = $map_arch;
$f =~ s/%%/sprintf("%02d", $_)/e;
$arch =~ s/%%/sprintf("%02d", $_)/e;
unlink $arch;
`wget $map_web/$arch`;


my @tmp = split(/\n/, Archive::Zip->new($arch)->contents($f));
@tmp = splice(@tmp, 1);
open OUT, ">>all_map.csv";
print OUT join("\n", @tmp) . "\n";
close OUT;


unlink $arch;
}