神奇的Perl-正则表达式(7)

wsxxz

声明：本神奇的Perl系列为刘兴(http://deepfuture.iteye.com/)原创，未经笔者授权，任何人和机构不能转载2.1        不捕捉括号

使用(?:)来标记那些不需要捕获的模式串。语法如下：
(?:<pattern>)  <pattern>为不需要捕获的模式串
以'deep and future'字符串为例，忽略and，直接使用数字标记来捕获字符串
use 5.010;
my $names='deep and future';
if ($names=~m/(\w+)  (?:and|or)  (\w+)/){
    say "我获得了$1 and $2";#(and|or) 不需要捕获，不使用数字标记它
}
2.2         使用自动变量捕捉

使用以下Perl的自动变量完成捕获：
$`表示匹配起始位置之前的字符串
$&表示匹配的内容，即//内的内容
$'表示匹配终结位置之后的内容
比如：
#perl4-9.pl
use 5.010;
　　#perl4-9.pl
　　use 5.010;
　　my $names='hello! deep and future';
　　if ($names=~m/!\s(\w+)/){
　　say $`;#捕捉“!”之前的字符串
　　say $&;#捕捉/!\s(\w+)/匹配的字符串
　　say $';#匹配/!\s(\w+)/模式串之后的字符串
　　}
　　输出结果如下：
　　hello
　　! deep
　　 and future