interger to I P address

[andree+nanog at toonk.nl (Andree Toonk)]

.-- My secret spy satellite informs me that at Wed, 27 Aug 2008, Colin Alston wrote:

>> The harder way:
>>
>> Decimal: 1089055123
>> Hex (dashes inserted at octals): 40-E9-A9-93
>> Decimal (of each octet): 64-233-169-147
>> IP Address: 64.233.169.147
>
> The Python way
>
> >>> import socket, struct
> >>> socket.inet_ntoa(struct.pack('>l', 1089055123))
> '64.233.169.147'

The Perl way:

sub ntoa
{
    my $one = shift;
    my $four = $one & 0xff;
    $one >>= 8;
    my $three = $one & 0xff;
    $one >>= 8;
    my $two = $one & 0xff;
    $one >>= 8;
    return "$one.$two.$three.$four";
}

#or in one line, like ipcalc does:
sub ntoa_in_one_line { join(".", unpack("CCCC", pack("N", $_[0]))); }

print ntoa(1089055123) . "\n";
print ntoa_in_one_line(1089055123) . "\n";

Cheers,
 Andree

--
 Andree Toonk
 http://www.toonk.ca/blog/