2016 08 01 12 38 [ipv4] cidr 格式的 hinet ip range

這邊拿到Hinet 的IPv4 Range,
經過幾個perl script處理過後,
這是其中一個script.

use Net::CIDR;
use Net::CIDR ':all';
#中華電信股份有限公司     HINET-NET              1.160.0.0 - 1.175.255.255            4096   
while (chomp($line=<STDIN>))
{
    @token = split(/\s+/,$line);
#    print ">>> $token[2]-$token[4]",".","\n";  
#  需要用join, 因為 ip range 並不一定能1對1轉出CIDR的格式,往往會是1對多.
  print join("\n", Net::CIDR::range2cidr("$token[2]-$token[4]")) . "\n";
}


就可以得到CIDR格式的IP range了.
如下所示:
===========================
1.160.0.0/12
1.34.0.0/15
103.25.236.0/22
111.240.0.0/12
114.24.0.0/14
114.32.0.0/12
118.160.0.0/13
118.168.0.0/14
122.116.0.0/15
122.118.0.0/16
122.120.0.0/13
125.224.0.0/13
125.232.0.0/15
168.95.0.0/16
202.39.0.0/18
202.39.64.0/19
202.39.128.0/17
203.66.0.0/16
203.69.0.0/16
203.74.0.0/15
210.241.224.0/19
210.242.0.0/16
210.59.128.0/17
210.61.0.0/16
210.62.248.0/21
210.65.0.0/16
210.71.128.0/17
211.20.0.0/14
211.72.0.0/16
211.75.0.0/16
218.160.0.0/12
220.128.0.0/12
36.224.0.0/12
43.255.92.0/22
59.112.0.0/12
60.248.0.0/14
61.216.0.0/13
61.224.0.0/13
===========================

PS: 通常需要自己使用capn install Net::CIDR