Translating IP addresses into hostnames : IP Address « Network « Perl

1. Perl
2. Network
3. IP Address

Translating IP addresses into hostnames

   

#!/usr/bin/perl

use Socket;
my $ADDR_PAT = /^\d+\.\d+\.\d+\.\d+$/;

while (<>) {
  chomp;
  die "$_: Not a valid address" unless /$ADDR_PAT/o;
  my $name = gethostbyaddr(inet_aton($_),AF_INET);
  $name ||= '?';
  print "$_ => $name\n";
}

   
    
    
  

Related examples in the same category