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

一. 实例

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

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

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

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

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

$str = "abcPPabc"
if($str =~ /(abc)PPg1/) { #true
	print "matches";
}