IP Address ASCII to Decimal

[dakota81]

I'm rather unfamiliar with Perl, want to know if there is built in functions to convert dotted decimal notation ip addresses to a number, and back again.

 

[EBGreen]

Do you mean convert 192.100.43.52 to 1921004352 and back to 192.100.43.52?

[blue]"Well, once again my friend, we find that science is a two headed beast. One head is nice, it gives us aspirin and other modern conveniences,...but the other head of science is BAD! Oh, beware the other head of science, Arthur; it bites!!" - The Tick[/blue]

 

[dakota81]

I mean convert 192.100.43.52 to 3227790132 and back to 192.100.43.52.

 

[EBGreen]

Not that I'm aware of, but I am aware that there is a lot that I'm not aware of.

[blue]"Well, once again my friend, we find that science is a two headed beast. One head is nice, it gives us aspirin and other modern conveniences,...but the other head of science is BAD! Oh, beware the other head of science, Arthur; it bites!!" - The Tick[/blue]

 

[dakota81]

I know how to do it the long way if needs be, just asking first. I just want to put ip addresses into a database field and want them in decimal notation.

 

[toolkit]

# forward
$ip = "192.100.43.52";
@fields = split(/\./, $ip);
$sum = 0;
foreach $field (@fields) {
    $sum *= 256;
    $sum += $field;
}
print "$sum\n";

# reverse
@fields = ();
while ($sum > 256) {
    $rem = $sum%256;
    $sum = int($sum/256);
    unshift @fields, $rem;
}
unshift @fields, $sum;
$" = ".";
print "@fields\n";

Cheers, Neil

 

[toolkit]

Or another way, using the Socket module:

use Socket;
$ip = "192.100.43.52";

# forward
$n = inet_aton($ip);
$dec = unpack("I", $n);
print "$dec\n";

# reverse
$n = pack("I", $dec);
$ip = inet_ntoa($n);
print "$ip\n";

Cheers, Neil