Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: Retrieving all hostnames for an IP address...

by idsfa (Vicar)
on Dec 13, 2006 at 15:47 UTC ( #589599=note: print w/replies, xml ) Need Help??


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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://589599]
help
Chatterbox?
[Discipulus]: if true we had to be all green/red..

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (9)
As of 2017-11-22 08:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:













    Results (316 votes). Check out past polls.

    Notices?