perl里面，有没有判断ip地址函数？

yxzjf

同上，或则有没有其他方法判断？
谢谢

seacaptain

“判断”是什么意思？

yxzjf

是一个字符串，判断它是否是正确的ip地址格式。

yxzjf

既要支持ipv4又要支持ipv6的函数，请帮忙。

weiyi_cn

自己写一个吧，又不难。
用正则表达式啦。
你对协议也要熟（最基本的部分）

xiaojianredhat

怎么做？

yxzjf

自己写了一个不知道对否？

1. sub iPAddressCheck
   
2. {
   
3.            my $intFlag = 0;                     #Set to 1 when matched
   
4.           my $intSingleColon = 0;            #For count ":" when check IPv6 address
   
5.            my $intDoubleColon = 0;            #For count "::" when check IPv6 address
   
6.    
   
7.           my ($strIP) = @_;
   
8.         $strIP =~s/^\s*//;                 #Delete front blanks
   
9.            $strIP =~s/\s*$//;                 #Delete end blanks
   
10.    
    
11.            #If $strIP obser the IPv4 format, print "ipv4"
    
12.            if($strIP =~/^(\d{1,3})[.](\d{1,3})[.](\d{1,3})[.](\d{1,3})$/)
    
13.            {
    
14.                       if($1 !~/^0\d+$/ && $2 !~/^0\d+$/ && $3 !~/^0\d+$/ && $4 !~/^0\d+$/)
    
15.                       {
    
16.                          if($1<224 && $1!= 127 && $2<255 && $3<255 && $4<255 && $4!=0)
    
17.                         {
    
18.                                     $intFlag = 1;
    
19.                          }
    
20.                       }
    
21.            }
    
22.    
    
23.            #If $strIP obser the IPv6 format, print "ipv6"
    
24.            if($strIP !~/[^0-9A-Fa-f:]/ && $strIP !~/[0-9A-Fa-f]{5,}/ && $strIP !~/^:[0-9A-Fa-f]/ && $strIP !~/[0-9A-Fa-f]:$/)
    
25.         {
    
26.                       while($strIP =~ /:/g)
    
27.                 {
    
28.                          ++$intSingleColon;
    
29.                       }
    
30.                       while($strIP =~ /::/g)
    
31.                 {
    
32.                          ++$intDoubleColon;
    
33.                       }
    
34.                       if(($intDoubleColon==0&&$intSingleColon==7) or ($intDoubleColon==1&&$intSingleColon<=7))
    
35.                 {
    
36. 
    
37.                          $intFlag = 1;
    
38.                       }
    
39.            }  
    
40.         retrun $intFlag;
    
41. }

复制代码