神奇的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}";
}