Re: RE: My favorite looping mechanism in Perl is:

Uh...why?

Personally, I find for-as-foreach more useful:

for my $i(0..$#array) {   #same thing as your C-like for
    stuff;
}
[download]

=cut
--Brent Dax

@HPAJ=split("", "rekcaH lreP rentonA tsuJ");
print reverse @HPAJ;  #sucky but who cares?
[download]

Comment on Re: RE: My favorite looping mechanism in Perl is: Select or Download Code
Re^3: My favorite looping mechanism in Perl is: by Anonymous Monk on Jun 24, 2012 at 17:02 UTC
Personally, I find for-as-foreach more useful: Try make: `for my $i (0 .. $#array) { ... }` [download] efficiently do something like: `for ($i=0; $i < @array; $i += ROWSIZE) { ... }` [download]	[reply] [d/l] [select]
Re^4: My favorite looping mechanism in Perl is: by jdporter (Canon) on Jun 25, 2012 at 00:35 UTC
oh, you mean like `for my $i ( grep { not $_ % ROWSIZE } 0 .. $#array )` [download]	[reply] [d/l]
Re^5: My favorite looping mechanism in Perl is: by Anonymous Monk on Jun 25, 2012 at 13:54 UTC
Yes. using foreach you have to do something terribly contorted and crazily inefficient. Like that. Thank you for so adeptly illustrating my point.	[reply]
Re^5: My favorite looping mechanism in Perl is: by sauoq (Abbot) on Jun 25, 2012 at 21:29 UTC
That would do ROWSIZE mods and ROWSIZE comparisons plus some other junk in place of a single addition. `-sauoq "My two cents aren't worth a dime.";`	[reply]