Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: Print last line in a file

by nehlwyn (Acolyte)
on Aug 22, 2001 at 05:48 UTC ( [id://106860]=note: print w/replies, xml ) Need Help??


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;

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]);
    BTW I really did need both pairs of parens.

      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.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://106860]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others chanting in the Monastery: (6)
As of 2024-03-29 09:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found