アドレスをまとめる

---

　NetAddr::IPモジュールを使うと簡単です。

use strict;
use warnings;
use v5.10;
use NetAddr::IP;

my @ip_list = qw(
    192.168.0.64/26
    192.168.0.128/26
    192.168.0.192/26
);

my @compacted_ip_list = NetAddr::IP::Compact(
    map {NetAddr::IP->new($_)} @ip_list
);

say foreach @compacted_ip_list;
# 192.168.0.64/26
# 192.168.0.128/25

---

関連項目

・ネットワークアドレスの取得
・ブロードキャストアドレスの取得
・先頭アドレスの取得
・末尾アドレスの取得
・アドレス範囲の取得