Help for this page

Select Code to Download

Select or download this

grep {
    croak "This doesn't look like start-end\n" unless /(.*)-(.*)/;
    push @a, $1;
    push @b, $2;
} @cidr;

Select or download this

for (@cidr) {
    croak "This doesn't look like start-end\n" unless /(.*)-(.*)/;
    push @a, $1;
    push @b, $2;
    }