Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: Foreach Loops

by perlfan (Curate)
on Mar 15, 2005 at 19:40 UTC ( #439735=note: print w/ replies, xml ) Need Help??


in reply to Foreach Loops

You can have a counter:

my $i = 0; foreach (@myarray) { # stuff goes here $i++; }
A slight improvement over holli's in that you can access the entire i-1 previous elements.


Comment on Re: Foreach Loops
Download Code
Replies are listed 'Best First'.
Re^2: Foreach Loops
by Roy Johnson (Monsignor) on Mar 15, 2005 at 22:09 UTC
    You should really put the counter increment in the continue block, though, in case of next or redo. Compare:
    my @arr = ('a'..'m'); my $i=0; foreach (@arr) { # stuff goes here next if $i%4 == 0; print "$i: $_\n"; } continue { ++$i } $i = 0; foreach (@arr) { # stuff goes here next if $i%4 == 0; print "$i: $_\n"; ++$i; }

    Caution: Contents may have been coded under pressure.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://439735]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (12)
As of 2015-07-08 08:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (98 votes), past polls