#
# I've striped down the core dump example,
# It no longer core dumps under v5.6.1 but it still returns the wrong 
+answer
# Can anyone explain why /C(2)/ is not getting substituted?
use strict;

print doFunc( "MAIN", "B(1)+C(2)" );
sub doFunc{
   my $theFunc = shift;
   local $_ = shift;
   my $re;
   $re = ${{
"B(1)+C(2)" => '1|2',
}}{$_}||quotemeta;

   print "$theFunc: '$_'=~/$re/\n";
   print join"\n",/(\w+)\(($re)\)/g,"\n";

   $_ =~ s/(\w+)\(($re)\)/&doFunc($1,$2)/eg; # /ego works /eg fails
    return "func $theFunc returns <$_>";
}
#should return
#func MAIN returns <func B returns <1>+func C returns <2>>
#

[download]

In reply to recursive /eg fails by I0

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.