请教大神，如何判断客户端IP是否属于内网IP范围

mcshell

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. my %hash;
   
6. while(<DATA>){
   
7.     chomp;
   
8.     my($ip,$netmask)=split/\//;
   
9.     my $ipbit = unpack("B32",pack("C4", (split/\./,$ip)));
   
10.     my $net = substr("$ipbit",0,"$netmask");
    
11.     push @{$hash{$net}}, $ip,$netmask;
    
12. }
    
13. #print Dumper \%hash;
    
14. my @testip=qw{192.168.1.5 219.111.193.1 };
    
15. foreach my $kipbit (keys %hash){
    
16.     my $netmask = $hash{$kipbit}[1];
    
17.     my $netip = $hash{$kipbit}[0];
    
18.       foreach my $testkip (@testip){
    
19.             my $testipbit = unpack("B32",pack("C4", (split/\./,$testkip))); #C4转化为char类型的数据类型，C4也可以写作CCCC,B32将IP地址转化为32位的bit。
    
20.              $testipbit = substr("$testipbit",0,"$netmask");
    
21.             if($kipbit == $testipbit){
    
22.                 print "$netip/$netmask\n";
    
23.             }
    
24.       }
    
25. }
    
26. __DATA__
    
27. 192.168.0.0/16
    
28. 219.111.192.0/18
    
29. 68.132.0.0/17
    
30. 61.135.0.0/16
    
31. 192.162.0.0/16
    
32. 152.172.0.0/16
    
33. 34.132.0.0/14
    
34. 97.208.0.0/13

复制代码

ajdan4q

回复 1# flutter


    汗，俺的贴子咋上2楼了。以前学过这些，看了你的贴之后，花了1，2小时，总算是掌握，再回答你的问题。谢谢你的分。