[Tutor] Want to write a Perl based IP to Domain Name converter.

[hongyi.zhao at gmail.com]

Hi all,

The script in the following can do the batch conversion from domain name to IP:

------------------

#!/usr/bin/perl
use warnings;
use strict;
use Socket;

while ( <> ) {
     chomp;
     my ( $address, $port ) = split /:/ or next;
     my $number = inet_aton $address;
     my $ip     = inet_ntoa $number;
     print "$address:$port -> $ip:$port\n";
     }

__END__

------------------


If I want to do the opposite thing, i.e., conversion from IP to domain
name, what should I revise this script to do the trick.

Regards,
-- 
Hongyi Zhao <hongyi.zhao at gmail.com> 
Xinjiang Technical Institute of Physics and Chemistry
Chinese Academy of Sciences 
GnuPG DSA: 0xD108493
2009-1-31