Re: Checking IP's with an IP/mask

[jwest]

Unfortunately, this is a terse answer, as I haven't done this myself before, but Net::Netmask should do the trick for you, I'd think.

use Net::Netmask;

$block=new Net::Netmask("10.0.2.0/24");
if ($block->match("192.168.1.2")) { ... }

Update: added code example

-><- -><- -><- -><- -><-
All things are Perfect
    To every last Flaw
    And bound in accord
         With Eris's Law
 - HBT; The Book of Advice, 1:7

[idnopheq]

OUTSTANDING!

#!/usr/bin/perl -wT
#-*-perl-*-

use strict;
use Net::Netmask;

my $block=new Net::Netmask( $ARGV[0] );

if ($block->match( $ARGV[1] ) ) { 
  print $ARGV[1] , " exists in " , $ARGV[0] , "\n";
}

else {
  print "CIDR         = " , $block->desc() , "\n";            # a.b.c.
+d/bits
  print "IP Address   = " , $block->base() , "\n";
  print "Netmask      = " , $block->mask() , "\n";
  print "Hostmask     = " , $block->hostmask() , "\n";
  print "Mask bits    = " , $block->bits() , "\n";
  print "Subnet size  = " , $block->size() , "\n";
  print "Max netmask  = " , $block->maxblock() , "\n";
  print "Broadcast    = " , $block->broadcast() , "\n";
  print "Next netmask = " , $block->next() , "\n";
  print "First host   = " , $block->nth(1) , "\n";
}

I wish I had found this module a few years ago! My binary math is quite slow.

THX!
--
idnopheq
Apply yourself to new problems without preparation, develop confidence in your ability to to meet situations as they arrise.

~ Shunryu Suzuki