Last line of file/Perl

[Kevin Buettner]

On Nov 14,  1:50pm, Kevin Buettner wrote:

> On Nov 14,  3:39pm, Mike Starke wrote:
> 
> > I need to open a file and just read in the last line, can anyone
> > throw me a bone?
> 
> [...] To really do what you want, you'll need to seek to the
> end and then seek backwards reading each character until you find the
> end-of-line character(s) of the penultimate line.

Like so:

#!/usr/bin/perl

while (@ARGV) {
    $filename = shift @ARGV;
    open FH, "<$filename"		or die "Can't open $filename";

    seek FH, -length($/), 2 		or die "Can't seek";
    $pos = tell(FH);
    while (seek(FH, --$pos, 0) && ($_ = <FH>) ne $/) {
	$last_line = $_;
    }

    print $last_line;
}