Re: How do I read a file line by line in reverse order (from EOF to start of file)

open( FILE, "<$file_to_reverse" )
  or die( "Can't open file file_to_reverse: $!" );

@lines = reverse <FILE>;
foreach $line (@lines) {
  # do something with $line
}
[download]

Reference Chapter 8 of the Perl Cookbook.

Comment on Re: How do I read a file line by line in reverse order (from EOF to start of file) Download Code