in reply to Loosing variable content after regular expression

There's nothing wrong with the piece of code you have provided (except that it does nothing and does not even compile because it's incomplete). To get an answer, you should have tried to obtain a minimal reproducting exemple, which would probably have shown you what was wrong in the process.

The issue probably comes from where you get your reference, if you have $ref = \SOMETHING where SOMETHING comes from a regex (the most obvious case being $ref = \$1;, running another match may change the value your reference points to. For exemple, the following code has a issue similar to yours, except it fails at the first run: 

my $l_Name_ref;
for (qw/HELLO PERL MONKS/)
{
  /(.+)/;
  $l_Name_ref = \$1;
  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";
    }
  }
}

[download]

Edit: I changed my example, in the previous version I used @ARGV and shifted from it because of my first attempt at reproducing the defect but it did not make much sense in this last version.

Replies are listed 'Best First'.
Re^2: Loosing variable content after regular expression
by metty (Initiate) on Dec 19, 2014 at 08:27 UTC

    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.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom