If the file is small, then the above answer by
le is
acceptable.
If you expect the file to be large (such as log file)
and you know the approximate format of the file (e.g. the lines
tend to have max width of 80 characters), then you can use
seek(-81,2) and then use the above solution to get the
last 1.5 lines.
You might want to check if it contains a newline, as otherwise
you probably need to read more.
Here is a code snippet:
open (F,"the file");
seek(F,-81,2);
while(<F>) { $l=$_}
warn if $.<1; # Make sure we read more than one line
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.