アドレスホスト変換、製作時間 30秒ぐらい
#!/usr/bin/perl
use Socket;while(
){
my $iaddr = pack('C*', split(/\./, $_));
my $host_name = gethostbyaddr($iaddr, AF_INET);
print "$_ $host_name\n";
}
#!/usr/bin/perl
use Socket;while(
){
my $iaddr = pack('C*', split(/\./, $_));
my $host_name = gethostbyaddr($iaddr, AF_INET);
print "$_ $host_name\n";
}