Skript pro agregaci rout

[ntpt]

Dobrý den,

řeším problém s nutností agregovat routy. v krátkosti. mám texťák s dvojicemi " network/netmask nexthop" . potřebuji nějaký script,  který by dokázal tyto dvojice projít a routy zagregovat. tedy z 192.168.0.0/24 x.x.x.x a 192.168.1.0/24 x.x.x.x dokázal udělat 192.168.0.0/23.

ručně to nejde, rozsahy jsou amtomaticky generované, nestejné  a je jich pár set...
nevíte o něčem ?

[Reklama]

[Me]

#!/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 ()));


neni muj vytvor..

[Me]

input je snad jasnej:
route_agregation.pl 192.168.0.0/24 192.168.1.0/24 192.168.4.0/24 192.168.5.0/24

output:
192.168.0.0/23
192.168.4.0/23