??自定義的子網(wǎng)范圍如下：

192.168.0.0/16 219.111.192.0/18 68.132.0.0/17 61.135.0.0/16 192.162.0.0/16 152.172.0.0/16 34.132.0.0/14 97.208.0.0/13 有以下幾個(gè)IP：192.168.1.5 219.111.193.1 219.111.1.2，要求計(jì)算是否在以上自網(wǎng)之中，如果在，則輸出此IP所在的自網(wǎng) code:

#!/usr/bin/perl?

use?strict;?

use?warnings;?

use?Data::Dumper;?

my?%hash;?

while(<DATA>){?

????chomp;?

????my($ip,$netmask)=split/\//;?

????my?$ipbit?=?unpack("B32",pack("C4",?(split/\./,$ip)));?

????my?$net?=?substr("$ipbit",0,"$netmask");?

????push?@{$hash{$net}},?$ip,$netmask;?

}?

#print?Dumper?\%hash;?

my?@testip=qw{192.168.1.5?219.111.193.1?219.111.1.2};?

foreach?my?$kipbit?(keys?%hash){?

????my?$netmask?=?$hash{$kipbit}[1];?

????my?$netip?=?$hash{$kipbit}[0];?

??????foreach?my?$testkip?(@testip){?

????????????my?$testipbit?=?unpack("B32",pack("C4",?(split/\./,$testkip)));?#C4轉(zhuǎn)化為char類型的數(shù)據(jù)類型，C4也可以寫(xiě)作CCCC,B32將IP地址轉(zhuǎn)化為32位的bit。?

?????????????$testipbit?=?substr("$testipbit",0,"$netmask");?

????????????if($kipbit?==?$testipbit){?

????????????????print?"$netip/$netmask\n";?

????????????}?

??????}?

}?

__DATA__?

192.168.0.0/16?

219.111.192.0/18?

68.132.0.0/17?

61.135.0.0/16?

192.162.0.0/16?

152.172.0.0/16?

34.132.0.0/14?

97.208.0.0/13?

本文轉(zhuǎn)自 mcshell 51CTO博客，原文鏈接：http://blog.51cto.com/mcshell/1086377，如需轉(zhuǎn)載請(qǐng)自行聯(lián)系原作者

總結(jié)

以上是生活随笔為你收集整理的perl计算IP所在的子网范围的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。