我可以使用什么正则表达式来匹配以点十进制表示法表示的任何有效IP地址？

Question

我可以使用什么正则表达式来匹配以点十进制表示法表示的任何有效IP地址？

Answer 1

if($ip=~/^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/ &&(($1<=255  && $2<=255 && $3<=255  &&$4<=255 )))
     {
         print "valid\n";
     }
     else
     {
         print "Invalid\n";
     }

Answer 2

CPAN是你的朋友:Regex :: Common或Net :: IP :: Match :: Regexp.

Answer 3

我喜欢这个......就像Steve Hajducko一样,但是使用引用的reg ex rooooock!

my $ip = '120.140.255.254'; # for example

my $ipno = qr/
    2(?:5[0-5] | [0-4]\d)
    |
    1\d\d
    |
    [1-9]?\d
/x;

if ( $ip =~ /^($ipno\.){3}$ipno$/ ){
    print "IP OK\n";
};

我去英国剑桥的Arm接受采访.他们让我在董事会上写了一篇,然后我写了一些蹩脚的......然后......沉溺于我的不良尝试,着手制作一个更好的.失败的驱使？或者也许只是真的被它烦恼了.我还有工作:)