模式分组

beyes

使用圆括号进行模式分组，圆括号也是元字符。
我们可以使用 \1, \2 这样的写法来反向引用，其中反斜线后面的数字是和括号的组号匹配的。下面例子说明这种情况：

[Perl] 纯文本查看 复制代码

#!/usr/bin/perl
$_ = "www.groad.net";
if (/(.)\1\1/) {
    print "It match.\n";
}

(.)\1\1 表示连续匹配 3 个同样的字符。(.) 首先会匹配 w，然后连续匹配两个 w，这两个 w 使用 \1\1 来指示。

其实，反向引用并不一定总写在相应的分组括号后面，如下形式也可以：

[Perl] 纯文本查看 复制代码

$_ = "kill mill sill bill";
if (/k(...) m\1 s\1 b\1/) {
    print "All match.\n";
}

上面匹配了 4 个单词 kill, mill, sill, bill 。

可以进行多组匹配，如：

[Perl] 纯文本查看 复制代码

$_ = "groor";
if (/g(.)(.)\2\1/) {
    print "match!\n";
}

这里两个括号里的点号分别匹配了 r 和 o，而 \2 匹配 o，\1 匹配 o，所以整个匹配了 groor 。

有时可能会出现嵌套括号的情况，这时候找出分组号有个技巧：只要数出左括号(包括嵌套括号)的序号就行了。比如：

[Perl] 纯文本查看 复制代码

$_ = "yabba dabba doo";
if (/y((.)(.)\3\2) d\1/) {
    print "It matched!\n";
}

如上，紧跟着 y 后面的左括号的编号为 1，第 1 个点号的左括号编号为 2，第 2 个点号的左括号编号为 3 。