$_ = "Hello there neighbor"; if (/(S+) (S+), (S+)/) { print "words were $1 $2 $3 "; }
捕获变量的存续期
这些捕获变量通常能存活到下次成功匹配为止。也就是说,失败的匹配不会改动上次匹配时的捕获内容,而成功的匹配会将他们的值重置。
不捕获模式
在左括号后面加上问号和冒号(?:),告诉Perl这一对圆括号完全是为了分组而存在的。
if(/(?:bronto)?saurus (steak|burger)/){ print "Fred wants a $1 "; }
命名捕获
Perl 5.10 增加了对捕获内容直接命名的写法。 最终捕获到的内容会保存在特殊哈希
%+里面:其中键就是捕获时用的特殊标签,对应的值则是捕获的字符串
具体写法(?<LABEL>PATTERN),其中LABEL可以自行命名。
use 5.010; my $names = 'Fred or Barney'; if ($names =~ m/(?<name1>w+/) (?:and|or) (?<name2>w+/){ say "I saw $+{name1} and $+{name2}"; }
在使用捕获标签后,反向引用的写法也随之有所变化。 现在采用g{label}这样的写法
use 5.010; my $names = 'Fred Flintstone and Wilma Filintstone'; if ($name =~ m/(?<last_name>w+)/ and w+ g{last_name} ){ say "I saw $+{last_name}"; }
我们也以用另一种语法来表示反向引用。
k<label> 等效于 g{label}