If you know what the longest the last line in the file is, this can work nicely. You do the seek as above and then put the rest of the file in an array, here is an example:
my @data; # Store the last part of the file
my $length = -10; # enter the longest length of the last line (and add
+ a few bytes to it), then negate it
open (F,"test") || die "Can't open file"; # open the file or die
seek (F,$length,2); # Go back $length
@data = <F>; # Get the rest of the file in @data
print $data[$#data]; # Print the last line
Hope this helps.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|