Collapse IP Ranges

rethaew has asked for the wisdom of the Perl Monks concerning the following question:

Good afternoon, I have a list of IP addresses ranges that is very long. I see that many of them can be combined to shorten list. Can you help with some perl code that will do this quickly? Example: File In contains:

5.0.0.0-5.0.0.255
5.0.1.0-5.0.1.255
7.15.1.0-7.15.6.255
7.15.7.0-7.15.9.255
[download]

Collapsed output file:

5.0.0.0-5.0.1.255
7.15.1.0-7.15.9.255
[download]

Thank you.

Comment on Collapse IP Ranges Select or Download Code

Replies are listed 'Best First'.
Re: Collapse IP Ranges by runrig (Abbot) on Apr 14, 2009 at 23:21 UTC
Net::CIDR::Lite does this quite easily: `my $cidr = Net::CIDR::Lite->new(); while (<DATA>) { chomp; $cidr->add_range($_); } for $r ( $cidr->list_range() ) { print "$r\n"; } __DATA__ 5.0.0.0-5.0.0.255 5.0.1.0-5.0.1.255 7.15.1.0-7.15.6.255 7.15.7.0-7.15.9.255` [download]	[reply] [d/l]
Re^2: Collapse IP Ranges by rethaew (Sexton) on Apr 14, 2009 at 23:34 UTC
Works kick ass! Thanks.	[reply]
Re: Collapse IP Ranges by toolic (Bishop) on Apr 14, 2009 at 23:33 UTC
This is a job for Super Search, where title contains all of "ip", "address": ?node_id=3989;HIT=ip%20address;re=N Well, what do you know? There's a runrig hit in Collapsing IP addresses, an approach?	[reply]
Re^2: Collapse IP Ranges by runrig (Abbot) on Apr 14, 2009 at 23:54 UTC
Ironically, that is a node where I do not recommend the module for that particular problem (but at least mention it so the OP here could have at least looked into it). Also, if the OP googled for the right stuff (or even some other stuff) he could have also found help (though it seems the word "merge" is much more helpful than "collapse").	[reply]
Re^2: Collapse IP Ranges by ikegami (Patriarch) on Apr 15, 2009 at 02:38 UTC
That post is about identifying the subnet address of an IP address given a subnet mask. I don't see how that relates.	[reply]