perl 5 一个问题

vincent_k

#!/usr/bin/perl
$_="yabba dabba doo";
if(/y(.)(.)\2\1/){
        print "$&";
}


返回值是yabba

我有点弄不明白


#!/usr/bin/perl
$_="yabba dabba doo";
if(/(.)\1/){
        print "$&";
}
这样是bb

\1匹配bb我能理解

可是\2\1那个确实不明白。请高人给我指教一下

yybmsrs

$&是上次成功匹配的内容，也就是y(.)(.)\2\1，所以返回yabba

\2\1对应第二个第一个分组里面的内容，也就是\1=a \2=b

vincent_k

if(/y(.)(.)\2\1/)

我还是不知道这个东西匹配的是什么

是Y开头 (.)和\2是一对
然后第二个括号(.)和\1是一对是吗？

yybmsrs

回复 3# vincent_k


    /y(.)(.)\2\1/匹配y开头然后一个字符一个字符\2\1

vincent_k

回复 4# yybmsrs


    我终于明白了。。123页看到这样一句话

而反斜线后面的数字和括号的组号匹配

yaoliwei

用意思来表达的话 就是y打头 然后4个字符 前2个字符和后2个字符颠倒一下