Hello Eily, you wrote:

... if you have $ref = \SOMETHING where SOMETHING comes from a regex ..., running another match may change the value your reference points to.

Whow, I am impressed. Your guess is absolutely right. In fact the input to the method is coming from another regular expression. This is how I call my method:

$l_Value =~ s/([a-zA-Z]\w+)/${$o_Object->GetValue(\ $1)}/gs;

[download]

The regular expression searches for specific placeholders in a string, and tries to replace them with values returned by the method "GetValue".

sub GetValue {
  my $o_Object    = shift;
  my $l_Name_ref  = shift;
  my $l_Value     = undef;

  if (defined($$l_Name_ref)) {
  print STDERR "1 $$l_Name_ref\n" if (defined($$l_Name_ref));
  print STDERR "2 $l_Name_ref\n";
  if ($$l_Name_ref =~ /^[a-zA-Z]\w+$/) {
    print STDERR "3 $l_Name_ref\n";
    print STDERR "4 $$l_Name_ref\n";
    ...
  } else {
    ...
  }
  return \ $l_Value;
}

[download]

So running a regular expression on a reference, which point to a result of another regular expression should be avoided. The solution is to create a copy of the same data before running the next regular expression. Thank you for pointing this out.

In reply to Re^2: Loosing variable content after regular expression by metty
in thread Loosing variable content after regular expression by metty

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.