Re: Need a better way to count input lines

You could do:

# while (not eof FILE) { ... }
# or...
until (eof FILE) {
  my (@lines) = map scalar <FILE>, 1 .. 3;
  # work with $lines[0], $lines[1], $lines[2]
}
[download]

You need the scalar there, because you only want to get one line at a time.

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

Comment on Re: Need a better way to count input lines Download Code

Replies are listed 'Best First'.
Re: Re: Need a better way to count input lines by Theo (Priest) on May 07, 2004 at 20:23 UTC
I've never used map before. It looks like @lines ends up with three elements because of the "1 .. 3" range. .oO(Verrry useful) Would the loop work the same if you used `until (eof FILE)` instead of the while? Update: Thanks for the update! -Theo- (so many nodes and so little time ... )	[reply] [d/l]