ls /proc/registry/HKEY_CURRENT_USER/Software/Microsoft/Windows/\ CurrentVersion/Explorer/UserAssist/\{75048700-EF1F-11D0-9888-\ 006097DEACF9\}/Count/ | perl -MEncode -pe \ 'Encode::from_to($_,"sjis","utf8");tr/a-zA-Z/n-za-mN-ZA-M/'
パス名からすると、入力アシストに使う履歴データっぽい。UEME_RUNPATH:WinSCP3.lnk UEME_RUNPATH:Yahoo!メッセンジャー へのショートカット.lnk UEME_RUNPATH:C:\PROGRA~1\MOZILL~1\FIREFOX.EXE UEME_RUNPATH:C:\Documents and Settings\tayamash\デスクトップ\putty.exe
■講師:徳力 基彦
■参加費:無料
■日時:2006/12/6(水)
・19:00〜21:00 「ブログ時代の仕事術〜情報活用編〜」
・21:30〜23:00 懇親会を予定しています(自由参加)※懇親会費別途
■セミナー会場:パソナテック東京本社
東京都渋谷区道玄坂1-12-1 渋谷マークシティウェスト17F
#!/usr/bin/perl use strict; use warnings; print get_hostname("210.143.110.224"), "\n"; print get_hostname("127.0.0.1"), "\n"; print get_hostname("nais.to"), "\n"; print get_hostname("1.2.3.4"), "\n"; sub get_hostname { my ($ip_address) = @_; my (@addr) = split(/\./, $ip_address); return $ip_address if @addr != 4; my ($name, $aliases, $addrtype, $length, @addrs) = gethostbyaddr(pack("C4", @addr), 2); return $name ? $name : $ip_address; }
% ./gethn.pl ns.pitecan.com localhost nais.to 1.2.3.4