Perl正則表達(dá)式匹配IP地址方法

在Perl中，你可以使用正則表達(dá)式來匹配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";
}

這個(gè)腳本首先定義了一個(gè)包含一些IP地址的字符串。然后，它使用正則表達(dá)式\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地址。這個(gè)正則表達(dá)式的組成部分解釋如下：

1. \b：表示單詞邊界，確保我們匹配的是完整的IP地址，而不是其他單詞的一部分。
2. (?: ... )：表示非捕獲分組，我們不需要捕獲匹配的內(nèi)容，只是用它來組織正則表達(dá)式。
3. 25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?：匹配0到255之間的數(shù)字。這是通過以下方式實(shí)現(xiàn)的：
   • 25[0-5]：匹配250到255。
   • 2[0-4][0-9]：匹配200到249。
   • [01]?[0-9][0-9]?：匹配0到199。
4. \.：匹配點(diǎn)字符（.）。注意，我們?cè)谡齽t表達(dá)式中使用了反斜杠（\）來轉(zhuǎn)義點(diǎn)字符，因?yàn)樗谡齽t表達(dá)式中有特殊含義。
5. {3}：表示前面的模式（即一個(gè)數(shù)字和兩個(gè)點(diǎn)字符）需要重復(fù)3次。
6. 最后一個(gè)部分與前面類似，但它不包含{3}，因?yàn)槲覀冎恍枰ヅ渥詈笠粋€(gè)數(shù)字。

$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：這個(gè)表達(dá)式會(huì)在$input字符串中查找所有匹配的IP地址，并將它們存儲(chǔ)在@matches數(shù)組中。

最后，腳本遍歷@matches數(shù)組并打印找到的IP地址。