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











