[Tutor] Want to write a Perl based IP to Domain Name converter.
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
Xinjiang Technical Institute of Physics and Chemistry
Chinese Academy of Sciences
GnuPG DSA: 0xD108493
2009-1-31
___
Tutor maillist - Tutor@python.org
http://mail.python.org/mailman/listinfo/tutor
Re: [Tutor] Want to write a Perl based IP to Domain Name converter.
On Saturday, January 31, 2009 at 21:44, ken...@tds.net wrote: > On Sat, Jan 31, 2009 at 7:11 AM, wrote: >> Hi all, >> >> The script in the following can do the batch conversion from domain name to >> IP: > This is a Python list, not Perl! OMG! It's my mistake, sorry for this. -- Hongyi Zhao Xinjiang Technical Institute of Physics and Chemistry Chinese Academy of Sciences GnuPG DSA: 0xD108493 2009-1-31 ___ Tutor maillist - Tutor@python.org http://mail.python.org/mailman/listinfo/tutor
