wongsyrone/merge-cidr.pl

## merge-cidr.pl
#!/usr/bin/perl
## ArchLinux install package via pacman: perl-net-cidr-lite
use strict;
use warnings;
use Net::CIDR::Lite;
my $cidr = Net::CIDR::Lite->new;
while (my $line=<>) {
    $cidr->add($line);
}
foreach my $line( @{$cidr->list} ) {
    print "$line\n";
}
	#!/usr/bin/perl
	## ArchLinux install package via pacman: perl-net-cidr-lite
	use strict;
	use warnings;
	use Net::CIDR::Lite;
	my $cidr = Net::CIDR::Lite->new;
	while (my $line=<>) {
	$cidr->add($line);
	}
	foreach my $line( @{$cidr->list} ) {
	print "$line\n";
	}