我可以在Perl正则表达式中使用命名组来获取散列结果吗？

是否可以像在Python中那样在Perl的正则表达式语法中执行命名组匹配？我总是$n在匹配后将值绑定到专有名称,所以如果可能的话,我会发现在正则表达式中更方便.

Python就像这样:

>>> import re
>>> regex = re.compile(r'(?P\d+)')
>>> match = regex.match('42')
>>> print match.groupdict()
{'count': '42'}

我知道这?P表明它是一个特定于Python的正则表达式功能,但我希望它以不同的方式在Perl中或稍后添加.有没有办法在Perl中以类似的方式获取结果哈希？

Perl用于(?pattern)指定名称捕获.您必须使用%+哈希来检索它们.

$variable =~ /(?\d+)/;
print "Count is $+{count}";

这仅在Perl 5.10及更高版本上受支持.

从Perl 5.10开始,我认为Perl正则表达式支持一些Python特性,使它们成为Python兼容的正则表达式.Python版本中包含"P",但所有这些都在Perl 5.10中工作.有关详细信息,请参阅perlre文档:

定义命名捕获缓冲区.相当于(?pattern).

(?Ppattern)

对指定捕获缓冲区的反向引用.相当于\g{NAME}.

(?P=NAME)

子程序调用命名捕获缓冲区.相当于(?&NAME).

(?P>NAME)

虽然我没有将Python兼容性添加到最新版本的Learning Perl中,但我们确实涵盖了新的Perl 5.10功能,包括命名捕获.

有几个人说perl 5.10已经命名为群组.

但是在以前的perls中,你可以做一些事情,不是那么方便,而是相对不错:

my %hash;
@hash{"count", "something_else"} = $string =~ /(\d+)\s*,\s*(\S+)/;

然后你可以使用:

$ hash {"count"}和$ hash {"something_else"}.