regex – Perl正则表达式以匹配IP地址

发布时间：2020-12-15 21:15:20 所属栏目：大数据来源：网络整理

导读：我写了这段代码,但它不起作用. 有人可以指出这个问题吗？ 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 "$1n"; }} 编辑：我想提取IP地址,而不是进行任何验

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

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 "$1n";
  }
}

编辑：
我想提取IP地址,而不是进行任何验证.

解决方法

{1-5} – >将{1-3}更改为{1,3} {1,5}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!