Convert Integer value to IP Address

[Vikrant]

Hi

Please tell me how do i convert a long integer IP address to dotted quad
IP address using perl language.

For example:- If IP address is 167772260 then how do i convert it into
dotted quad IP address.

I am able to do it by applying some mathematical operations, but i am
looking for a function in perl the can do the same,because in my code i
have deal with many IP addresses.

or plz suggest me any other way to do it.


With Regards
Vikrant

 

[Ian Wilson]

Hi

Please tell me how do i convert a long integer IP address to dotted quad
IP address using perl language.

For example:- If IP address is 167772260 then how do i convert it into
dotted quad IP address.

I am able to do it by applying some mathematical operations, but i am
looking for a function in perl the can do the same,because in my code i
have deal with many IP addresses.

or plz suggest me any other way to do it.

perldoc -q "IP address"

 

[Paul Lalli]

Please tell me how do i convert a long integer IP address to dotted quad
IP address using perl language.

For example:- If IP address is 167772260 then how do i convert it into
dotted quad IP address.

Relatively sure you want Socket.pm's inet_ntoa() function. Have a look
at it in
perldoc Socket

Paul Lalli

 

[axel]

Relatively sure you want Socket.pm's inet_ntoa() function. Have a look
at it in
perldoc Socket

Yes... although it needs some juggling:

print inet_ntoa(inet_aton(167772260));

Yields the required '10.0.0.100'.

Axel

 

[Richard Gration]

Yes... although it needs some juggling:

print inet_ntoa(inet_aton(167772260));

Yields the required '10.0.0.100'

This example using pack also yields the correct answer

perl -MSocket -e 'print inet_ntoa(pack 'N',167772260)'

but I'm not sure if this is a legit use of pack.

I find pack/unpack utterly confusing. Which is to say, whenever I try to
use it, I think really hard about what I'm trying to do, I read and
re-read "perldoc -f pack", I concentrate, very carefully write my line of
code thinking hard along the way and then: Voila! A complete load of tripe
comes out :-(

Rich

 

[J. Gleixner]

Hi

Please tell me how do i convert a long integer IP address to dotted quad
IP address using perl language.

For example:- If IP address is 167772260 then how do i convert it into
dotted quad IP address.

I am able to do it by applying some mathematical operations, but i am
looking for a function in perl the can do the same,because in my code i
have deal with many IP addresses.

or plz suggest me any other way to do it.

Net::Netmask (http://search.cpan.org/~muir/Net-Netmask-1.9012/) contains
a lot of useful methods pertaining to IP addresses and CIDR notation.

sub int2quad
{
return join('.',unpack('C4', pack("N", $_[0])));
}

 

[Vikrant]

Thanks to all for the information.

vikrant