Re: subnet aggregation script

[Jeff Walter]

Ric Moseley wrote:

Does anyone know of a tool/script that can aggregate subnets feed to it
via command line?  Meaning if I give it multiple /30s (or any size

subnet) it will scrunch them together.

Here is a Perl script to do just that.  My normal one reads from STDIN.

#!/usr/bin/perl

use Net::CIDR::Lite;

my $cidr = Net::CIDR::Lite->new ();

foreach (@ARGV) {
        if (/^[0-9a-f\.:]+(\/\d+)?$/) {
                $cidr->add_any ($_);
        }
}

print (join ("\n", $cidr->list ()));