Re: how to print first 5 lines of a file

in reply to how to print first 5 lines of a file

for (1 .. 5) {
    print scalar <>;
    last if eof;
}
[download]

Or, if you're certain there are at least five lines:

print scalar <> for 1 .. 5;

Calling the diamond operator <> in scalar context will return 1 line, assuming $/ is set to "\n". (Note - 'while' calls in scalar context while 'foreach' and 'for' call in list context.)

HTH,
Charles K. Clarkson

Comment on Re: how to print first 5 lines of a file Select or Download Code

In Section Seekers of Perl Wisdom