Re: Splitting IP ranges depending on overlap conditions


Just another Perl shrine
	PerlMonks

Re: Splitting IP ranges depending on overlap conditions

by eXile (Priest)

on Apr 14, 2006 at 15:26 UTC ( [id://543373]=note: print w/replies, xml )

Need Help??

in reply to Splitting IP ranges depending on overlap conditions

I'm not aware of a CPAN module that can do this.

You could convert your dotted-quad IP-addresses to integers, so you can do some simple math with them:

if ( $ip =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/ ) {
  $number = $1 >> 24 + $2 >> 16 + $3 >> 8 + $4
}
[download]

Comment on Re: Splitting IP ranges depending on overlap conditions Download Code

Replies are listed 'Best First'.

Re^2: Splitting IP ranges depending on overlap conditions
by fishbot_v2 (Chaplain) on Apr 14, 2006 at 17:49 UTC

TMTOWTDI, and I normally do this sort of thing:

use strict; use warnings;

use Socket qw{ inet_aton inet_ntoa };

sub ip_to_num { unpack( 'N', inet_aton( shift )); }
sub ip_to_str { inet_ntoa( pack( 'N', shift )); }
sub ip_plus   { ip_to_str( ip_to_num( $_[0] ) + $_[1] ); }
sub ip_minus  { ip_plus( $_[0], -$_[1] ); }

my $dotted_quad = '10.198.9.2';
print ip_plus( $dotted_quad, 290 ), "\n";
print ip_minus( $dotted_quad, 3 ), "\n";

__END__

10.198.10.36
10.198.8.255
[download]

In the OPs case, he only needs to add 1 and subtract 1. Again, all of this craps out on IPv6. I suspect that isn't a concern yet.

[reply]
[d/l]

In Section Seekers of Perl Wisdom