perl学习（二）正则表达式

模式分组：

/fred+/会匹配freddd这样的

/(fred)+/会匹配fredfredfred这样的

/(fred)*/则会匹配abcdef任意的

圆括号同时也使得重新使用某些字符串成为可能。反向引用来引用圆括号中的模式所匹配的文字，这个行为我们称为捕获组。

反向行为的写法是在反斜线后面接上数字编号，比如1, 2这样，对应的数字表示对应顺序的捕获组。

$_ = "abba";
if (/(.)1/) { # 匹配 'bb'
        print "It matched same character next to itself! ";
}

$_ = "yabba dabba doo";
if (/y(....) d1/) { # 匹配 'yabba dabba'
    print "It matched same after y and d! ";
}

$_ = "yabba dabba doo";
if (/y(....) c1/) { # 不匹配
    print "It matched same after y and d! ";
}

$_ = "yabba dabba doo";
if (/y((.)(.)32) d1/) { # 匹配  'yabba dabba'
    print "It matched! ";
}

反向引用用g{N}更明晰

$_ = "aa11bb";
if (/(.)g{1}11/) { # 匹配 'aa11'
    print "It matched:aa11! ";
}