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

声明：本神奇的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