rtsi.com/2014.01.www.rtsi.com.tar/www.rtsi.com/OS9/OSK/NETWORK/ISP/bind.4.8.3.lzh/BIND483/EXAMPLES/ch11.ip_to_name.perl

Text File | 1994-01-09 | 250b | 13 lines

#!/usr/bin/perl

require 'sys/socket.ph';

while(<>){
    if(/\b([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)\b/){
      $addr = pack('C4', split(/\./, $1));
      ($name, $rest) = gethostbyaddr($addr, &AF_INET);
      if($name) {s/$1/$name/;}
    }
    print;
}