in reply to perl to convert text list of ip address to a name

#!/usr/bin/perl -w

use strict;
use Socket;

while ( <DATA> ) {
    chomp;

    print +(
        gethostbyaddr( inet_aton($_), AF_INET )
    )[0], $/;
}

__DATA__
66.39.54.27
209.197.123.153
216.109.127.30
205.188.244.138

[download]

Replies are listed 'Best First'.
Re: Re: perl to convert text list of ip address to a name
by biosysadmin (Deacon) on May 17, 2004 at 23:15 UTC
    Edit: I'm smoking crack. Sorry saskaqueer. Old thread is shown below ...

    I think you have it backwards, the original poster asked for a way to convert IP addresses to hostnames, not hostnames to IP addresses.

    Here's some example code using Net::DNS: 

    
use Net::DNS;
my @domains = qw/google.com perl.com perlmonks.org cpan.org/;
my $res   = Net::DNS::Resolver->new;
foreach my $domain( @domains ) {
   my $query = $res->search($domain);

   if ($query) {
      foreach my $rr ($query->answer) {
         next unless $rr->type eq "A";
         print $rr->address, "\n";
      }
   } else {
      warn "query failed: ", $res->errorstring, "\n";
   }
}

    [download]
    Be forewarned: Net::DNS is a bit slow, but it does get the job done. Printing a CSV list of the domains and their associated IP addresses is an exercise left to the reader.
[reply]
[d/l]
      I think you have it backwards, the original poster asked for a way to convert IP addresses to hostnames, not hostnames to IP addresses.

      What do you think my code does? It reads in a list of IP addresses and converts them to hostnames. Your code on the other hand converts hostnames into (possibly multiple) IP addresses, which is what your quote above says is what the OP did not ask for... You're not making sense. Your text and your code say two different stories :)

[reply]

In Section Seekers of Perl Wisdom