#!/usr/bin/php
<?php
//
// RIRのIPアドレス割り当てリストから、連続したIPアドレスを最大のCIDR表記に変換する    
//
$SPLIT_CLASS_A = true;  // class A(/8)より大きいブロックに分けない

// 標準入力からRIRの生データを読み込んで、CIDR単位に分割したデータに変換する
$data = [];
$fpr = fopen("php://stdin", "r");
while(! feof($fpr)) {
    $buff = rtrim(fgets($fpr,9999));
    $dd = explode("|", $buff);
    if ($dd[2] == "ipv4" && preg_match("/\A[A-Z]{2}\z/", $dd[1])) {
        $bkdata = split_cidr_block(ip2long($dd[3]), $dd[4], $dd[1]);
        foreach ($bkdata as $dd) {
            $data[] = $dd;  // $dataのフォーマット [ 先頭IP, bit数, 国 ]
        }
    }
}
fclose($fpr);

// IPアドレス順にソート
usort($data, function($a,$b) {
    return ($a[0] == $b[0]) ? 0 : (($a[0] < $b[0]) ? -1 : 1);
});

// 連結可能なCIDRを1つにまとめる
$last_cc = "";
$rewind_i = 0;
$datacnt = count($data);
for ($i=0; $i<$datacnt-1; $i++) {
    // 次に来るCIDRを見つける
    $j = $i + 1;
    if (! array_key_exists($i, $data)) continue;
    for ($j=$i+1; $j<$datacnt; $j++) {
        if (array_key_exists($j, $data)) break;
        if ($j == $datacnt-1) break 2;
    }
    list($ipsta1_n, $bit1, $cc1) = $data[$i];
    list($ipsta2_n, $bit2, $cc2) = $data[$j];
    if ($last_cc != $cc1) $rewind_i = $i;
    $last_cc = $cc1;
    // 連続する次のデータが存在するなら連結する
    if ($cc1 != $cc2) continue; // 国が同じで無ければskip  
    if ($ipsta1_n + pow(2,$bit1) != $ipsta2_n) continue;    // IPが連続しれなければskip
    if (($ipsta1_n & pow(2,$bit1+1)-1) != 0) continue;  // IPがCIDR拡張後の先頭でなければskip   
    if ($SPLIT_CLASS_A && $bit1 >= 24) continue;    // class A以上は連結しない
    $expect_ipend_n = $ipsta1_n + pow(2, $bit1+1) - 1;
    $ipend2_n = $ipsta2_n + pow(2, $bit2) - 1;
    if ($ipend2_n == $expect_ipend_n) { // 見つかったら連結して再スキャンする
        $data[$i] = [$ipsta1_n, $bit1+1, $cc1];
        unset($data[$j]);
        $i = $rewind_i - 1;
    }
}

// 結果出力
foreach ($data as $j => $dd) {
    $ip = long2ip($dd[0]);
    $cidr = 32 - $dd[1];
    $cc = $dd[2];
    echo "$cc $ip/$cidr\n";
}
exit;

// CIDRごとに分割する　再帰処理
function split_cidr_block($ipsta_n, $cnt, $cc, $data=[]) {
    global $SPLIT_CLASS_A;
    if ($cnt <= 0) {
        return $data;
    }
    $stabit = ceil(log($cnt,2));
    if ($SPLIT_CLASS_A && $stabit > 24) $stabit = 24;   // class Aを上限とする
    for ($bit=$stabit; $bit>=2; $bit--) {   // 分割可能な最大のCIDRを探す
        $bcnt = pow(2, $bit);
        if (($ipsta_n & $bcnt-1) == 0 && $cnt >= $bcnt) break;  // 見つかった場合
    }
    $data[] = [ $ipsta_n, $bit, $cc ];
    return split_cidr_block($ipsta_n+$bcnt, $cnt-$bcnt, $cc, $data);    // 残りを再帰的に処理する
}
?>