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

Question

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

Python就是这样：

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

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

Answer 1

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

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

仅在Perl 5.10及更高版本上支持此功能。

Answer 2

从Perl 5.10开始，我认为Perl正则表达式支持some Python features，使它们与 Python 兼容的正则表达式。 Python版本中包含“P”，但所有这些都在Perl 5.10中工作。有关详细信息，请参阅perlre文档：

定义命名捕获缓冲区。相当于(?<NAME>pattern)。

(?P<NAME>pattern)

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

(?P=NAME)

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

(?P>NAME)

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

Answer 3

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

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

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

然后你可以使用：

$ hash {“count”}和$ hash {“something_else”}。

Answer 4

AFIK PCRE已将群组捕获命名为：

(?'NAME'pattern)
(?<NAME>pattern)

您可以找到信息here。