IP address - long to dottedquad to long
# thanks to jdporter and ikegami who have shown me a much better way to do this!
#
# Thanks to ikegami for the code example
use Socket qw( inet_aton inet_ntoa );
sub DottedQuadToLong {
# Accepts triton.littlefish.ca
# Accepts 24.72.30.83
# Accepts 407379539
# etc
return unpack('N', inet_aton(shift));
}
sub LongToDottedQuad {
return inet_ntoa(pack('N', shift));
}
Re: IP address - long to dottedquad to long
created: 2006-04-28 16:06:30
Bad. Very bad. node 221512
We're building the house of the future together.
Re: IP address - Converting between string and number
created: 2006-04-28 16:10:28
Those are needlessly complicated. You're replicating functions inet_aton and inet_ntoa of the core module [mod://Socket]:
use Socket qw( inet_aton inet_ntoa );
sub DottedQuadToLong {
# Accepts triton.littlefish.ca
# Accepts 24.72.30.83
# Accepts 407379539
# etc
return unpack('N', inet_aton(shift));
}
sub LongToDottedQuad {
return inet_ntoa(pack('N', shift));
}
Here are alternatives that only use [doc://pack] and [doc://unpack] (but only accept addresses of the form a.b.c.d):
sub DottedQuadToLong {
return unpack('N', (pack 'C4', split(/\./, shift)));
}
sub LongToDottedQuad {
return join('.', unpack('C4', pack('N', shift)));
}
Re^2: IP address - long to dottedquad to long
created: 2006-04-28 16:23:50
Wow! Excellent (and nearly instant) advice! Thanks both of you.
My use of regex was based on a very narrow definition of dotted quad I needed at the time. I'm totally in favor of using inet_aton and inet_ntoa instead!
My use of regex was based on a very narrow definition of dotted quad I needed at the time. I'm totally in favor of using inet_aton and inet_ntoa instead!
Re: IP address - long to dottedquad to long
created: 2006-04-28 16:20:41
[cpan://Net::IP] solutions:
couple code comments:
# for just DottedQuadToLong():
use Net::IP;
print Net::IP->new("24.72.30.83")->intip;
# for both directions:
use Net::IP qw/:PROC/;
print ip_bintoint(ip_iptobin("24.72.30.83",4));
print ip_bintoip(ip_inttobin("407379539",4),4);
couple code comments:
- Personnally i'd write foreach (@quads) { $_ = hex } w/map: return join '.', map {hex} @quads;
- in DottedQuadToLong, the split is just extra work -- just capture each piece (don't need the substitution, either)
sub DottedQuadToLong { my $ip_str = shift; return 0 unless $ip_str =~ /^\s*(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\s*$/; my $ip = 0; foreach my $quad ($1,$2,$3,$4){ return 0 if ($quad > 255); $ip = $ip * 256 + $quad; } return $ip; }