Reading a file line-by-line from the bottom up

fx has asked for the wisdom of the Perl Monks concerning the following question:

Using:

open(FILE, "<some_file.txt");
while(<FILE>) {
  ## Do some processing...
}
close(FILE);
[download]

I can read a file line-by-line from the top down. How would I go about reading it line-by-line from the bottom up?

Under Linux I suppose it would be fairly easy to have my code read standard input and simply tac (like cat, but in reverse) the file into the script. However, I can't guarantee that tac will be available on all systems where this code will run and would therefore prefer to do it with Perl.

The file in question is large (~600Mb) so I'd rather not read it into memory first :)

Any ideas?

Comment on Reading a file line-by-line from the bottom up Download Code

Replies are listed 'Best First'.
Re: Reading a file line-by-line from the bottom up by runrig (Abbot) on Jan 08, 2004 at 00:27 UTC
File::ReadBackwards	[reply]
Re: Reading a file line-by-line from the bottom up by davido (Cardinal) on Jan 08, 2004 at 00:28 UTC
You could have a look at File::ReadBackwards, on CPAN. It should do what you're looking for. From the docs.... This module reads a file backwards line by line. It is simple to use, memory efficient and fast. It supports both an object and a tied handle interface. It is intended for processing log and other similar text files which typically have their newest entries appended to them. By default files are assumed to be plain text and have a line ending appropriate to the OS. But you can set the input record separator string on a per file basis. And an example... `use strict; use warnings; use File::ReadBackwards; tie *BW, 'File::ReadBackwards', 'log_file' or die "can't read 'log_file' $!" ; while( <BW> ) { # Do some stuff... }` [download] HTH! Dave	[reply] [d/l]
Re: Reading a file line-by-line from the bottom up by ysth (Canon) on Jan 08, 2004 at 00:27 UTC
http://search.cpan.org/dist/File-ReadBackwards	[reply]
Re: Reading a file line-by-line from the bottom up by fx (Pilgrim) on Jan 08, 2004 at 09:39 UTC
Ah, well, ok, I guess that's one of those *d'oh* moments. I did check the CPAN listings but there so many I must have missed it. Many thanks! :)	[reply]


Don't ask to ask, just ask
	PerlMonks