merge CIDR

Perl提供了個方便的模組CIDR-Lite，可將單一IP或IP Range整合成CIDR格式輸出。

#!/usr/bin/perl

use Net::CIDR::Lite;

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

$cidr->add("192.168.0.0/23");

$cidr->add("192.168.2.0/23");

$cidr->add("192.168.4.0/24");

$cidr->add("192.168.5.0/24");

$cidr->add_range("192.168.6.0-192.168.7.255");

print "$_\n" for $cidr->list;

輸出結果：

192.168.0.0/21