Perl——正则表达式(三) (...)

一. 实例

(1)  (...)与 | 组合使用

/(a|b)b/; # 匹配 'ab' 或 'bb'<pre name="code" class="plain">/(a|)b/; # 匹配 'ab' 或 'b'

(2)  (...)与 ^ 组合使用

/(^a|b)c/;   # 匹配 'ac' 在字符串的开始位置 或 'bc' 在字符串任何地方

(3) 获取匹配的值 $1   $2

$time = "16:37:24";if($time =~ /(\d\d):(\d\d):(\d\d)/) {$hours = $1;    #提取 时$minutes = $2;  #提取 分$seconds = $3;  #提取 秒}

(4) 反向引用 \g1  \g2

反向引用 用在正则表达式内部

$str = "abcPPabc"if($str =~ /(abc)PP\g1/) { #trueprint "matches";}