The Net::CIDR package contains functions that manipulate lists of IP netblocks expressed in CIDR notation. The Net::CIDR functions handle both IPv4 and IPv6 addresses. WWW: http://search.cpan.org/dist/Net-CIDR/ On Thu, May 03, 2012 at 04:58:27PM -0400, chip wrote:

Looks like the most recent NetAddr::IP perl module will do it:

http://search.cpan.org/~miker/NetAddr-IP-4.059/IP.pm#EXPORT_OK

Take a look at the Compact function. I think that's what will do it.

--chip

On Thu, May 3, 2012 at 4:25 PM, Rafael Rodriguez <packetjockey@gmail.com> wrote:

...

Hi list,

I can't seem to find any tools that'll aggregate a list of IPv6 prefixes.  Used to 'aggregate' for IPv4, looking for something similar for IPv6.  Thanks!

-- Just my $.02, your mileage may vary,  batteries not included, etc....

-- - (2^(N-1))

Am 04.05.12 03:35, schrieb Rafael Rodriguez:

Found this tool that works perfectly.

http://zwitterion.org/software/aggregate-cidr-addresses/aggregate-cidr-addre...

Hoping this'll help someone else here on the list. Thanks!

Thx, this is at least three times faster than what I have here. Just a comment on the final print statement, which doesn't fit my needs for ipv6: - print "prefix: ", $_->prefix(), "\n"; + print "print: " , $_->print(), "\n"; - prefix: 2001:0db8:0000:0000:0000:0000:0000:0000/32 + print: 2001:db8::/32 Rgds, Stefan

Le mardi 22 mai 2012 à 14:02 -0400, Rafael Rodriguez a écrit :

:) thanks! Was wondering how to do that.

$ perldoc Net::IP ;) That doc's a fine one to read also for other reasons. Cheers, mh

Sent from my iPhone

On May 21, 2012, at 9:36, Stefan Jakob <stefan.jakob@de-cix.net> wrote:

...

Am 04.05.12 03:35, schrieb Rafael Rodriguez:

...

Found this tool that works perfectly.

http://zwitterion.org/software/aggregate-cidr-addresses/aggregate-cidr-addre...

Hoping this'll help someone else here on the list. Thanks!

Thx, this is at least three times faster than what I have here.

Just a comment on the final print statement, which doesn't fit my needs for ipv6:

- print "prefix: ", $_->prefix(), "\n"; + print "print: " , $_->print(), "\n";

- prefix: 2001:0db8:0000:0000:0000:0000:0000:0000/32 + print: 2001:db8::/32

Rgds, Stefan