Net-CIDR

 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 distribution
 view release on metacpan -  search on metacpan

( run in 1.017 second using v1.00-cache-1.14-grep-28634ff-cpan-207214f8fbd )