前端之家收集整理的这篇文章主要介绍了
regex – Perl正则表达式以匹配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 "$1\n";
}
}
编辑：
我想提取IP地址,而不是进行任何验证.
{1-5} – >将{1-3}更改为{1,3} {1,5}
