KENT WEB のアクセスレポートのreplist.cgiが生成するhtmlファイルに記録されるipアドレスからホストを調べてDBMファイルに記録するスクリプト - ip2host.pl
use LWP::Simple;
use Fcntl;
use SDBM_File;
push(@addrs, (get "http://yourcgihome/replist.cgi") =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/g);
tie(%ip2host, "SDBM_File", "/ip2hostdb", O_RDWR|O_CREAT, 0644)
    or die "Can't open ip2hostdb; $!\n";
foreach $addr (@addrs){
    if(!$ip2host{$addr}){
        $ipad = pack('C4', split(/\./, $addr));
        $host = gethostbyaddr($ipad, 2) || $addr;
        printf "%-15s: %-s\n", $addr, $host;
        $ip2host{$addr} = $host;
    }
}
untie(%ip2host);


Written by Kazuo Fujioka
<kazuf@mars.dti.ne.jp>
TS Network ☆ミ >>