> How about this. You seek to near the end of the file, read a buffer large > enough to be sure you got at least one line, then extract the last line from > the buffer.
why($Wheel->reinvent);
Just:
$bw = File::ReadBackwards->new( 'log_file' ) or
die "can't read 'log_file' $!" ;
my $last_line = $bw->readline;
$bw->close;
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
