regex - 如何找出 Perl 正则表达式中有多少个捕获括号？

Question

如果给我一个 regexp在 Perl 中，我可以找出有多少个捕获括号吗？所以，例如:

\w       -> 0
(\w)     -> 1
(\w(\w)) -> 2

Answer 1

您想知道有多少匹配项或多少组括号？如果您希望能够计算括号，那么您可能想看看像 Text::Balanced 这样的模块。解析分隔文本。

另一方面，如果您想知道如何匹配，最好在列表上下文中执行正则表达式:

my @matches = $string_to_match_on =~ /(\w(\w))/;

列表的大小会给你匹配的数量:

my $count = @matches;

(作为标量上下文中的列表或数组给出列表或数组的大小)。