Net-CIDR
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Net/CIDR.pm view on Meta::CPAN
$ip="$ip-$ip" unless $ip =~ /[-\/]/;
unshift @cidr, $ip;
@cidr=cidr2range(@cidr);
my @a;
my @b;
grep {
croak "This doesn't look like start-end\n" unless /(.*)-(.*)/;
push @a, $1;
push @b, $2;
} @cidr;
my $lo=shift @a;
my $hi=shift @b;
my $i;
for ($i=0; $i <= $#a; $i++)
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.362 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )