关于知道起始、结束IP求网络掩码的问题

ld462370527

用IP查询接口获取IP段，得到的IP地址是起始与结束的范围。

比如：

1. "start":"1.72.87.0","end":"1.72.87.255"

复制代码

想转换为1.72.87.0/24 这种形式。这个比较容易。因为是连续的子网掩码：

1. 00000001.01001000.01010111.00000000
   
2. 00000001.01001000.01010111.11111111

复制代码

相同的位为网络位，不同的位为主机位。

想请教大家：

1. "start":"58.214.0.0","end":"58.215.63.255"

复制代码

对于这种形式的用什么方法比较好？感觉处理起来有点繁琐。有没有专门处理非连续的掩码的模块之类的？

1. 00111010.11010110.00000000.00000000
   
2. 00111010.11010111.00111111.11111111

复制代码

ld462370527

回复 1# ld462370527

把这个分成两段：

1. "start":"58.214.0.0","end":"58.215.63.255"

复制代码

1.     00111010.11010110.00000000.00000000
   
2.     00111010.11010111.00000000.00000000

复制代码

1.     00111010.11010111.00000000.00000000
   
2.     00111010.11010111.00111111.11111111

复制代码

一般这么处理么？


   

xiumu2280

外行人表示不明白····不过看样子是十进制到二进制的转换啊

ld462370527

回复 3# xiumu2280
嗯。有个Net::IPAddress这个模块可以处理ip地址，先试下，不过感觉有点繁琐。。


   

q1208c

回复 1# ld462370527

1.     use Net::CIDR;
   
2. 
   
3.     use Net::CIDR ':all';
   
4. 
   
5.     print join("\n",
   
6.           Net::CIDR::range2cidr("192.68.0.0-192.68.255.255",
   
7.                                 "10.0.0.0-10.3.255.255"))
   
8.                . "\n";
   
9.     #
   
10.     # Output from above:
    
11.     #
    
12.     # 192.68.0.0/16
    
13.     # 10.0.0.0/14

复制代码

http://search.cpan.org/~mrsam/Net-CIDR-0.17/CIDR.pm

ld462370527

回复 5# q1208c

thanks~~~ 搞定了

1. #!/usr/bin/perl -w
   
2. 
   
3. use Net::CIDR;
   
4. use Net::CIDR ':all';
   
5. 
   
6. @a=Net::CIDR::range2cidr("58.214.0.0-58.215.63.255");
   
7. foreach $net (@a) {
   
8.     print $net . "\n";
   
9. }

复制代码

1. 58.215.0.0/18
   
2. 58.214.0.0/16

复制代码

q1208c

回复 6# ld462370527


      

yestreenstars

@q1208c蒙对了~

q1208c

回复 8# yestreenstars


这次不是蒙的, 这个 mod 我以前经常用. 因为要把各种风格的地址段统一之后交给 DNS 去 处理.     

yestreenstars

回复 9# q1208c

开玩笑的，请勿生气~

如果你发现我的回复跟你说的不是一回事, 那么, 偶是来抬杠的.
如果你发现我的回复正好是你想知道的, 那么, 是俺蒙对了.