in reply to Retrieving all hostnames for an IP address...
use Socket; for my $ipnum (@list) { my $iaddr = inet_aton($ipnum); my ($name,$aliases,$addrtype,$length,@addrs) = gethostbyaddr($iaddr +, AF_INET); print "$ipnum -> $name,$aliases\n"; }
The intelligent reader will judge for himself. Without examining the facts fully and fairly, there is no way of knowing whether vox populi is really vox dei, or merely vox asinorum. — Cyrus H. Gordon
In Section
Seekers of Perl Wisdom