How many groups in a regex?

[grimbys]

Hi again, I need a copy of $1..$last after a $var =~ /$er/ is done.

Is there any var that says how many groups are there at last expression evaluate?

For example, I'd like:

$var =~ /$er/;
# $n_groups = n_match_parents ($er)
map { $groups{$_} = ${$_}} 0 .. $n_groups;

How I can get $n_groups?
Thank you very much.

 

[grimbys]

Oh, sorry, I solved it:

while (defined ${$i})
{
group[$i] = ${$i};
$i ++;
}