Re^2: Behavior of /g when there are capture groups

[AnomalousMonk]

This could be generalized to extract substrings, not just substring initial offsets; also to avoid  $& which just slows everything down. (The many evals might slow things down, though. Oh, well...) (Also tested under 5.8.9.)

c:\@Work\Perl>perl -wMstrict -le
"use Data::Dumper;
 ;;
 $_ = 'abcdfoofrobnicatebardefforspambazghi';
 ;;
 my $re = qr{ (fo.) (.*?) (ba.) }xms;
 ;;
 my %res;
 while (/($re)/g) {
   $res{$1} = [ map eval qq{\$$_}, 2 .. $#- ];
   }
 print Dumper \%res;
"
$VAR1 = {
          'forspambaz' => [
                            'for',
                            'spam',
                            'baz'
                          ],
          'foofrobnicatebar' => [
                                  'foo',
                                  'frobnicate',
                                  'bar'
                                ]
        };

[Eily]

I should have tested my code, I got confused and thought @- held the submatches themselves, not the indexes. So I actually meant $res{$&} = [ $1, $2, $3]; but got lazy :). And $res{$1} = [ $2, $3, $4 ] works without $& with the extra parentheses.

Your proposition has the benefit of not requiring to know the inner regex and its number of captures :)