in reply to My favorite looping mechanism in Perl is:

Well, I come from Pascal, so I don't use those fancy loop things like "foreach", or "map".

If I want to go through an array I do: 

for ($i = 0; $i<=$#array; $i++) {
   stuff;
};

[download]
I also don't use $_ to get the contents of a file. I do this: 
while ($line = <FILE>) {
   stuff;
};

[download]
And I put ; at the end of every line..

Replies are listed 'Best First'.
Re: RE: My favorite looping mechanism in Perl is:
by BrentDax (Hermit) on Jul 06, 2001 at 10:20 UTC
    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]
[reply]
[d/l]
[select]
      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]

        oh, you mean like 

        for my $i ( grep { not $_ % ROWSIZE } 0 .. $#array )

        [download]
[reply]
[d/l]

In Section Past Polls