是否可以像 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 中以类似的方式获取结果哈希？
【问题讨论】：
Perl 使用(?<NAME>pattern) 来指定名称捕获。您必须使用 %+ 哈希来检索它们。
$variable =~ /(?<count>\d+)/;
print "Count is $+{count}";
这仅在 Perl 5.10 及更高版本上受支持。
【讨论】：
%- 访问捕获。
从 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 功能，包括命名捕获。
【讨论】：
正如几个人所说，perl 5.10 已经命名了组。
但是在以前的 perls 中你可以做一些事情，不是那么方便，但相对来说还不错：
my %hash;
@hash{"count", "something_else"} = $string =~ /(\d+)\s*,\s*(\S+)/;
然后你可以使用：
$hash{"count"} 和 $hash{"something_else"}。
【讨论】：