how to read a file in backwards?

[redss]

Hi Monks!

How can I open up a text file and read the lines in one at a time, starting from the END?

Thanks!

[bart]

File::ReadBackwards: "Read a file backwards by lines."

Allegedly, it's been strongly tweaked to be as efficient as possible, under the circumstances, so it's very unlikely carelessly homegrown code will beat it.

[Ovid]

And just in case: Array::FileReader.

[ZlR]

Hello,

If it's just a small file you could load every line into an array and reverse the array :

open FFF, "< toctoc.txt " ;
my @slurp = (<FFF>) ;
print reverse @slurp ;

You can treat each line with a foreach over the array, but it may not fit your need if you really want to read one line at a time from the original file.

ZlR

[ercparker]

my @lines = <FILE>;
while (my $line = pop @lines) {
    # do something
}

[Miguel]

Another alternative:

use strict;
use IO::All;
print io("file.txt")->backwards->getlines;