2007-07-31から1日間の記事一覧
#!/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"; }
