http://www.perlmonks.org?node_id=964989


in reply to Re^2: Perlplexation - foreach shoulda Known
in thread Perlplexation - foreach shoulda Known

I would think it could work the same way the $_ variable works in nested loops...

Replies are listed 'Best First'.
Re^4: Perlplexation - foreach shoulda Known
by JavaFan (Canon) on Apr 13, 2012 at 21:47 UTC
    Ah, you mean, "$_ is the default iterator value, but it's easily replaced by another variable"? How should that work for the loop counter?
[reply]
[d/l]

      Right...I think. If I need to use the value of $_ in a nested loop, I'd just assign it to another variable:

      for (0 .. 10) {
    my $outer_elem = $_;
    for (0 .. 20) {
        my $inner_elem = $_;

        do_something($outer_elem, $inner_elem);
    }
}

# Yeah, I know doing this is better:
for my $outer_elem (0 .. 10) {
    for my $inner_elem (0 .. 20) {
        do_something($outer_elem, $inner_elem);
    }
}

      [download]

      So I guess the loop counter would just keep a count of the most immediate loop it's in. I don't really know--this is all just how I would expect such a variable to work (if it existed).

      So if we pretend $. is the loop counter:

      foreach my $elem1 (@array1) {
    my $outer_idx = $.;
    foreach my $elem2 (@array2) {
        my $inner_idx = $.;
        
        # Blablabla...
    }
}

      [download]

      I should emphasize: I'm not pushing for this to become a feature or anything. I was just curious if there was anything like this (and this is how I would imagine it might work if there was).

[reply]
[d/l]
[select]
        If you're willing to scribble away the value of $. in a variable at the beginning of the body, you might as well write: 
        my ($i, $j);
foreach .... {
    ++$i;
    foreach .... {
        ++$j;
    }
}

        [download]
[reply]
[d/l]

In Section Meditations