http://qs1969.pair.com?node_id=347099


in reply to Mysterious for behavior

Hi, what you really wrote is this: $_ is a alias to $i and $i is 1. 
my $i;
for ( ($i=3, $i=2, $i=1) ) {
 print("$_ and $i\n");
}

[download]
Boris

Replies are listed 'Best First'.
Re: Re: Mysterious for behavior
by Roy Johnson (Monsignor) on Apr 21, 2004 at 19:32 UTC
    Actually (and this was the point of confusion), I made $_ an alias to $i three times. I would have understood if it had acted like 
    for (scalar($i=3, $i=2, $i=1)) {
  print "$_ and $i\n";
}

    [download]
    where each assignment happens in turn, because of the comma operator, and $_ is aliased to the final result ($i) once. But that didn't happen. I expected each assignment expression to yield the value of its right-hand side, but Perl evaluated it more like: 
    $i=3, $i=2, $i=1;
for ($i, $i, $i) {
  print "$_ and $i\n";
}

    [download]

    The interesting part

    I can get the effect I expected by doing this: 
    for (0+($i=3), 0+($i=2), $i=1) {
  print "$_ and $i\n";
}

    [download]
    The PerlMonk tr/// Advocate
[reply]
[d/l]
[select]
      I can get the effect I expected by doing this: 
      for (0+($i=3), 0+($i=2), $i=1) {
  print "$_ and $i\n";
}

      [download]
       In your example you create 
      for ( temp, temp2, $i ) {

      [download]
      Boris
[reply]
[d/l]
[select]

      Maybe a better way to think about it is that you created an array of three elements, each element is pointing to the $i variable. However, because you are initializing $i for each element in the list, the elements in the list all contain the same value (in this case, the final value of $i: 1), since they're pointing to the current value of $i.

[reply]
      Scalar assignments yield the lvalue on the left, not the value on the right. Now can you make that fit with your "interesting part" and understand why it works as it does?
[reply]
        I didn't have any difficulty understanding why the interesting part worked.
        The PerlMonk tr/// Advocate
[reply]

In Section Seekers of Perl Wisdom