Как узнать, сколько захватных скобок находится в Perl regexp?

Question

Если мне дано regexp в Perl, могу ли я узнать, сколько у них скобок? Так, например:

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

Answer 1

Есть два специальных массива @ - и @ +, содержащие начальные позиции и конечные позиции успешных матчей. Используйте длину массива при согласовании.

Статический анализ: Чтобы знать все пары, вам нужно проанализировать строку регулярных выражений. Подсчитайте все незакрепленные открывающиеся брекеты, которые имеют закрывающий.

Answer 2

Вы хотите знать, сколько матчей есть или сколько наборов скобок? Если вы хотите иметь возможность подсчитать скобки, вы можете захотеть взглянуть на такой модуль, как Text::Balanced, который анализирует текст с разделителями.

С другой стороны, если вы хотите знать, как спички есть вы бы лучше выполнения регулярного выражения в контексте списка:

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

Размер списка даст вам количество совпадений :

my $count = @matches; 

(в виде списка или массива в скалярном контексте задается размер списка или массива).

Answer 3

Это не совсем тривиально, поскольку не все круглые скобки не захватываются - например (?: ...), (? = ...) и так далее.

Вообще, помните, что вы всегда можете:

my @catch_all = $string =~ m/......................./; 

, а затем просто проверить @catch_all;

Answer 4

Важно знать, зачем вам это нужно.

YAPE::Regex help?

Edit: Вот демонстрация:

#!/usr/bin/perl 

use strict; 
use warnings; 

use Data::Dumper; 
use YAPE::Regex; 

my $regex = qr/^(A)(B)(C)[0-9]+(\w+)$/; 

my $parser = YAPE::Regex->new($regex); 

my $n_captures; 

while (my $node = $parser->next) { 
    if ($parser->state =~ /^capture\(([0-9]+)\)$/) { 
     $n_captures = $1; 
    } 
} 

print "$n_captures\n"; 


C:\Temp> t 
4