in reply to Re: Re: backreference question.
in thread backreference question.

There are many possibilities for why what happened happened. None are likely to be heavily documented.

If the content method returns a different Perl scalar each time with the same contents, then what happens is that each pattern match is matching a scalar that has never been matched before. So each time Perl will start from the beginning.

If the content method attempts to do a pattern match internally, then pos is being reset.

If it directly assigns to pos (I can't imagine why it would but...), then that assignment wins.

In any case few module authors would think about someone trying to do a pattern match like this, so it is a good idea not to expect it to be documented accurately, and not to rely on them making your life easy. Putting the content into a scalar like graff suggested is a generally good idea unless you really know the code you are calling, and how Perl will deal with that.

Replies are listed 'Best First'.
Re: Re: Re: Re: backreference question.
by Jasper (Chaplain) on Jun 01, 2004 at 08:53 UTC
    This code 
    sub resp { "abcdefg" }

while (resp =~ /(.)/g) {
  print $1
}

    [download]
    goes into an infinite loop. No internal setting of pos, no pattern matching, whatever, same value. I can get the while loop to work(?) by making resp return a reference to a global scalar, and deref it in the while conditional with ${resp()}, but what module author would think about that?

    Having written this, I'm not entirely sure what my point was, but I'm sure I had one.
[reply]
[d/l]
[select]
      Whether or not you knew your point, you had a good one and I just learned something that I should have known. ;-)

      Perl calls by reference, returns by value. The "return by value" semantic means that the returned scalar is different - at least different enough to forget any pos information. Which means that it would be difficult to impossible for one to design a function that could be called in a loop like this without causing a problem.

[reply]
      did you mean like this when you say ref/deref : 

      sub resp { $a="abcdefg";\$a }

while (${&resp} =~ /(.)/g) {
  print $1;
}

      [download]
      however that goes to an infinitely loop too and for the first time on windows I crash perl interpreter so fast (when i hit Ctrl^C). 
      sub resp { "abcdefg" }

while (&resp =~ /(.)/g) { # you forgot the &,didn't you?
  print $1;
}

      [download]
      in the above code, I expect that &resp returns the 'value' of the subroutine and becomes 
      while ("abcdefg" =~ /(.)/g) {
  print $1;
}

      [download]
      it would work if it were the case.

      so return by ref doesn't work either. what happens in while( &resp =~ /(.)/g ) ??

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom