Perl正则表达式匹配IP地址方法

在Perl中，你可以使用正则表达式来匹配IP地址

#!/usr/bin/perl
use strict;
use warnings;

my $input = "这里有一些IP地址：192.168.1.1, 10.0.0.2, 8.8.8.8, 256.256.256.256";
my @matches = ($input =~ /\b(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b/g);

print "找到的IP地址：\n";
foreach my $match (@matches) {
    print "$match\n";
}

这个脚本首先定义了一个包含一些IP地址的字符串。然后，它使用正则表达式\b(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b来匹配IP地址。这个正则表达式的组成部分解释如下：

1. \b：表示单词边界，确保我们匹配的是完整的IP地址，而不是其他单词的一部分。
2. (?: ... )：表示非捕获分组，我们不需要捕获匹配的内容，只是用它来组织正则表达式。
3. 25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?：匹配0到255之间的数字。这是通过以下方式实现的：
   • 25[0-5]：匹配250到255。
   • 2[0-4][0-9]：匹配200到249。
   • [01]?[0-9][0-9]?：匹配0到199。
4. \.：匹配点字符（.）。注意，我们在正则表达式中使用了反斜杠（\）来转义点字符，因为它在正则表达式中有特殊含义。
5. {3}：表示前面的模式（即一个数字和两个点字符）需要重复3次。
6. 最后一个部分与前面类似，但它不包含{3}，因为我们只需要匹配最后一个数字。

$input =~ /\b(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b/g：这个表达式会在$input字符串中查找所有匹配的IP地址，并将它们存储在@matches数组中。

最后，脚本遍历@matches数组并打印找到的IP地址。