Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

127.0.0.1 == 0x0100007f, but how to you get that from inet_aton and not the return value?

Replies are listed 'Best First'.
(jeffa) Re: inet_aton
by jeffa (Bishop) on Jun 09, 2001 at 19:29 UTC
    inet_aton() takes a dotted quad and can return the host name using gethostbyaddr(). If you want a dotted quad returned, then use gethostbyname() and inet_ntoa: 
    use strict;
use Socket;

my $p  = gethostbyname('localhost');
my $ip = inet_ntoa($p);
print "$ip\n";

    [download]
    Here is a sample use of inet_aton(): 
    perl -MSocket -le 'print scalar gethostbyaddr(inet_aton("127.0.0.1"),A
+F_INET)'

    [download]
    I hope that answers your question.

    Jeff 

    R-R-R--R-R-R--R-R-R--R-R-R--R-R-R--
L-L--L-L--L-L--L-L--L-L--L-L--L-L--
[reply]
[d/l]
[select]
Re: inet_aton
by joe++ (Friar) on Nov 25, 2002 at 12:49 UTC
    Some 14 months go by and I do a Super Search...

    How about this? 

    # converts decimal dotted quad string to network ordered long
sub dottedquad2long {
  return unpack('N', inet_aton(shift));
#  or
#  return unpack 'N', pack 'C4', split /\./, shift;
#  or
#  my @seg = split(/\./, shift);
#  return $seg[0]*256**3+$seg[1]*256**2+$seg[2]*256+$seg[3];
}

    [download]
    Shamelessly stolen from IP Manipulation: An Exercise

    --
    Cheers, Joe

[reply]
[d/l]

Back to Seekers of Perl Wisdom