携帯W43SのGPS情報でGoogle Mapする（４）
好きなものは空と緑とS2000とガンダムとラジコン・ミニ四駆、Perfume（かしゆか）。ときどき子育てとキャンプ。 鵺さんコメントありがとうございます。 02 DATUM GPSで得た現在位置を地図の上で見てみたら、居るはずの所から500mくらいずれてた、と言う経験はありませんか? これは測地系の違いから起こることです なるほど、直交座標と楕円体座標変換なんですね。 そして面倒くさがりな私は結果的に YappoLogs: Geo::Coordinates::Converter - 緯度経度を簡単に変換する を使わせてもらいました。一番大変だったのがインストールっていう・・・(^^; 素直に # perl -e shell -MCPAN cpan> install Geo:: Coordinates::Converter が良さそうです。途中はまって色々と入れたような気がしますが覚えてませ
Windows 版 ActivePerl 5.8.X で日本語のファイル名を使う。
結論から言うと、UTF-8を内部コードにしているとき、Windows で日本語ファイル名を使いたいときは、プログラムの頭でこんな風に宣言すると便利である。 use strict; use encoding 'shiftjis'; use open ':encoding(shiftjis)'; use open ':std'; use File::Spec::Functions; use subs qw(open); sub open { use Encode; return CORE::open(shift,encode('shiftjis',shift),encode('shiftjis',shift)); } Perl 5.8.X では内部コードに UTF-8が使える。しかし、そのために日本語のファイル名が正しく扱えないことがある。 たとえば、次のプログラムは何の問題もなく動作する。
iTech - 電源を落としてもDRAMは落ちず : 404 Blog Not Found
2008年02月22日13:00 カテゴリiTechNews iTech - 電源を落としてもDRAMは落ちず ほええ、これは文字通り忘れられない。 Center for Information Technology Policy ? Lest We Remember: Cold Boot Attacks on Encryption Keys Via: Geekなぺーじ : ほとんどのHDD暗号化を解いてしまうというデモ 詳細は以下をご覧あれ。よく出来たビデオだなあ。 これ、「ディスク暗号化を解く」というより、「電源を落としても、DRAMには数秒から数分は元の記憶が残っている」というところがミソ。DRAM中のモナリザが、時とともにどう「忘れ」られていくかのデモが一番印象的。 このDRAM攻撃、これがわかれば対策も簡単。暗号化ディスクをアンマウントする際に、キーを格納するDRAM領域を上書き
perl - 文字列ばらしはsplit //, $strで : 404 Blog Not Found
2007年11月27日13:30 カテゴリLightweight Languages perl - 文字列ばらしはsplit //, $strで うーん、ここがあきまへん。 [を] 転置インデックスによる検索システムを作ってみよう！ 9 my @char = ($c =~ /([\x00-\x7f]|[\xC0-\xDF][\x80-\xBF]| 10 [\xE0-\xEF][\x80-\xBF]{2}| 11 [\xF0-\xF7][\x80-\xBF]{3})/gsx); 文字列をばらして(utf8の)文字一つ一つの配列にするには、バイト列に正規表現をかますのではなく、utf8文字列にしてからそれにsplit //をかますのが一番です。単にわかりやすいだけではなく、その方がずっと高速です。以下、Benchmark。 #!/usr/local/bin/perl use strict; u
perl - 配列をハッシュキーとして扱う : 404 Blog Not Found
2007年10月24日20:00 カテゴリLightweight Languages perl - 配列をハッシュキーとして扱う コメント欄にも「教科書解」がなかったので。 Perl勉強中 - YoshioriのBlog #!/usr/bin/perl use strict; use warnings; my @array = qw/1 2 3/; my @array2 = qw/1 2 3/; my %hash; $hash{@array} = 'foo'; # ちょっと変更 print $hash{ @array2 }; # foo みたいなこと出来ないのかな？ 教科書解は、こちら。 $hash{ join($;, @array) } = 'foo'; これは、 $hash{1,2,3} = 'foo'; $hash{qw/1 2 3/} = 'foo'; という、配列リテラルをキーに
IPアドレスの解決（Net::DNS）:Geekなぺーじ
Net::DNSサンプル 以下に単純なサンプルを示します。 #!/usr/bin/perl use Net::DNS; $res = Net::DNS::Resolver->new; $query = $res->search('www.yahoo.co.jp'); #失敗した場合 if (!$query) { print $res->errorstring; print "\n"; exit; } #結果を1行づつ表示 foreach $rr ($query->answer) { if ($rr->type eq "A") { print $rr->address; print "\n"; } } exit; 単一のホスト名(もしくはFQDN)に複数のIPアドレスが関連つけられていることがあるため、resolvの結果は複数になっています。
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
TAKESAKO @ Yet another Cybozu Labs: 日経ソフトウエアのPerl/CGI記事がオンラインで公開