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/) { #true
	print "matches";
}