Thanks Chas. I have got it correctly.
On Thu, Mar 19, 2009 at 9:54 PM, Chas. Owens <chas.ow...@gmail.com> wrote:
>
> Take a look at Net::CIDR::Set[1] and the other modules[2] that work
> with CIDR notation.
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> use Net::CIDR::Set;
>
> my $network1 = Net::CIDR::Set->new("202.102.128.0/17");
> my $network2 = Net::CIDR::Set->new("202.102.192.0/19");
>
> $network1->remove($network2);
>
> print map "$_\n", $network1->as_cidr_array;
>
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
