
Regexp::Common::net::CIDR -- provide patterns for CIDR blocks.

use Regexp::Common ();
use Regexp::Common::net::CIDR ();
while (<>) {
/$RE{net}{CIDR}{IPv4}/ and print "Contains a CIDR.\n";
}

Patterns for CIDR blocks. Now only next IPv4 formats are supported:
xxx.xxx/xx xxx.xxx.xxx/xx xxx.xxx.xxx.xxx/xx
With {-keep} stores address in $1 and number of bits in $2.

perl Makefile.PL make make install

As Regexp::Common doesn't work well with extensions named Regexp::Common::xxx::yyy you have to load this extension yourself with use or require.

Ruslan U. Zakirov <ruz@bestpractical.com>