Perl正则表达式匹配IP地址

Question

我写了这段代码,但它不起作用.有人可以指出这个问题吗？

sub match_ip()
{
  my $ip = "The IP address is 216.108.225.236:60099";
  if($ip =~ /(\d{1-3}\.\d{1-3}\.\d{1-3}\.\d{1-3}\:\d{1-5})/)
  {
      print "$1\n";
  }
}

编辑:我想提取IP地址,而不是做任何验证.

Answer 1

更改{1-3}到{1,3}相同的{1-5}- >{1,5}

Answer 2

在TIMTOWTDI的精神中,这里是另一个:可能具有你想要的regexen 的Regexp::Common::net部分Regexp::Common.