in reply to Skip 21 Lines

Good time to bring out that underused "flip-flop" operator: 
while (<HANDLE>) {
  next if 1..21;
  ... rest of processing here ...
}

[download]

-- Randal L. Schwartz, Perl hacker

Replies are listed 'Best First'.
Re: Re: Skip 21 Lines
by suaveant (Parson) on Apr 24, 2001 at 19:11 UTC
    That one is a weird one to get your head around... I never think of it. It is very cool, though. Of course, you could always do... 
    while (<HANDLE>) {
    last unless 1..21;
}
... rest of processing here ...

    [download]
    to prevent that check running for the following lines, but that's just downright ANAL :)
                    - Ant
[reply]
[d/l]
      last unless 1..21;

      Won't this do the opposite of what was intended and skip all but the first 21 lines of the file?

[reply]
        No... the while goes through 21 one times, then breaks out... (tho might lose line 22... 1..20 might be needed in this case... but once it exits the loop you either start a new loop or read the reast into an array or whatever, since your placeholder in the file is now at line 22. You see? But that way it isnt perfoming the line check after the 21st line.. not a big efficiency savings... but a bit.
                        - Ant
[reply]
Re: Re: Skip 21 Lines
by MeowChow (Vicar) on Apr 25, 2001 at 11:27 UTC
    Any reason you wouldn't use: 
    <HANDLE> for 1..21;
...

    [download]
       MeowChow                                   
               s aamecha.s a..a\u$&owag.print
[reply]
[d/l]
      You said:
      Any reason you wouldn't use: 
      <HANDLE> for 1..21;

      [download]
      Yes. Try that with <ARGV> (aka <>) when there's only 15 lines in the files specified on the command line. After it hits EOF, it now starts reading unexpectedly from STDIN for the remaining 5 lines (after 1 undef for the eof), because the process starts over!

      Moral: Always watch for an early EOF from a filehandle.

      -- Randal L. Schwartz, Perl hacker

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom