http://www.perlmonks.org?node_id=1015619


in reply to Evaluating code in a regex at runtime: (??{...})

Note that the contents of the match are still accessible via a named capture group:

#! perl
use Modern::Perl;

('a' x 100) =~ /(?<match>(??{'(.)' x 100}))/;

say $+{match};

[download]

Output:

12:28 >perl 504_SoPW.pl
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

12:28 >

[download]

See Capture groups.

Hope that helps,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

Replies are listed 'Best First'.
Re^2: Evaluating code in a regex at runtime: (??{...})
by LanX (Saint) on Jan 28, 2013 at 07:34 UTC
    > Note that the contents of the match are still accessible via a named capture group:

    > ...  ('a' x 100) =~ /(?<match>(??{'(.)' x 100}))/;

    ehm ... what you're showing also works with unnamed capture groups:

      DB<113> ('a' x 10) =~ /((??{'(.)' x 10}))/; print "<$1>"
 => 1
<aaaaaaaaaa>

    [download]

    The OP's point was about dynamically generated capture groups, but yours is outside the embedded Perl code.

    Cheers Rolf

[reply]
[d/l]
[select]

      Yes, you’re right. So in dave_the_m’s example, all we need to do is add another set of parentheses:

      /(....)...(...)...((??{foo()}))....(...)/
 ^        ^       ^                ^
 1        2       3                4

      [download]

      and the dynamically generated capture group is assigned to $3. For example:

      use Modern::Perl;

my $str  = 'abcd$$$$$ef';
my @caps = $str =~ /(a)b(c)d((??{'(.)' x 5}))e(f)/;

say join(', ', @caps);

      [download]

      Output:

      18:33 >perl 504_SoPW.pl
a, c, $$$$$, f

18:38 >

      [download]

      What we (apparently) can’t get is multiple capture groups matches assigned to different capture groups (whether named or unnamed) from the same dynamic match. Correct?

      Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

[reply]
[d/l]
[select]
        > What we (apparently) can’t get is multiple capture groups assigned to different capture groups (whether named or unnamed) from the same dynamic match. Correct?

        apparently yes, like documented: 

          DB<131> 'aaa' =~ /(?<outer>(??{'(?<inner>.)' x 1}))/; keys %+
 => "outer"

        [download]

        But of course there are workarounds ... if necessary.

        Cheers Rolf

[reply]
[d/l]

In Section Seekers of Perl Wisdom