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

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

2.1         使用命名变量捕捉

使用数字标记位置捕捉，仅适用于模式串比较简单的情况。

复杂的模式串必须使用命名变量进行捕捉，Perl将捕捉的字符串放在哈希%+，键为在捕捉时指定的命名变量，值为捕捉到的字符串。语法如下：

(?<label><pattern>)  label为命名变量，<pattern>为匹配模式串

例如：

/ab(?<myval>cd)e/  括号内的模式串cd将匹配到的字符串赋值给$+{myval}

/ab(?<myval>cd)e(?<mynum> [0-9]{5})fgh/  第一个括号内的模式串cd将匹配的的字符串赋值给$+{myval}，第二个括号内的模式串[0-9]{5}将匹配的5个数字赋值给$+{mynum}

我们仍以'deep and future'字符串为例，使用命名变量获得and前后的字符串。

use 5.010;

my $names='deep and future';

if ($names=~m/(（?<pname1>\w+)  (and|or)  (?<pname2>\w+)/){

    say "我获得了 $+{pname1} and $+{pname2}";

}