神奇的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> {5})fgh/ 第一个括号内的模式串cd将匹配的的字符串赋值给$+{myval}，第二个括号内的模式串{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}";
}
页:
[1]