in reply to Print last line in a file

Greetings fellow monk ,

You've had several good answers so i had this alternative just for fun and to point at one of the Perl mottos : TIMTOWTDI !!!

Using the same idea to quickly read all the lines but with using the special array @_

open (FILE,"your file");
@_=<FILE>;
close(FILE);
print pop;

[download]

There you go ...

the little one

Replies are listed 'Best First'.
Re (tilly) 2: Print last line in a file
by tilly (Archbishop) on Aug 22, 2001 at 06:22 UTC
    Your open should have an error check as described in perlstyle.

    This is usually done explicitly, but the various shortcuts do so as well. For instance try this: 

    @ARGV="your_file";
print((<>)[-1]);

    [download]
    BTW I really did need both pairs of parens.
[reply]
[d/l]

      Greetings fellow monk,

      You're dammmn right , sir ... 'was a bit hasty of me ... But fortun'ly , 'had a fellow monk to DWIM(eant) ...;-)

      the little one.
[reply]

In Section Seekers of Perl Wisdom