<div>
This will work for small files that fits into available memory. Otherwise smarter code is needed. The simplest way is to use existing sollutions<br />
<br />
open(F, &quot;tac 'filename' |&quot;) || die;<br />
while(&lt;F&gt;)<br />
{<br />
&nbsp;print($_);<br />
}<br />
close(F);<br />

</div>


This will work for small files that fits into available memory. Otherwise smarter code is needed. The simplest way is to use existing sollutions

open(F, "tac 'filename' |") || die;
while(<F>)
{
 print($_);
}
close(F);


<div>
 &nbsp; use File::ReadBackwards ;<br />
<br />
&nbsp; &nbsp; tie *FILE1, 'File::ReadBackwards', &quot;../gt/$in{'id'}/rafs.txt&quot;<wbr /> or die &quot;can't read '../gt/$in{'id'}/rafs.txt'<wbr /> $!&quot; ;<br />
<br />
&nbsp; &nbsp; while( &lt;FILE1&gt; ) {<br />
&nbsp; &nbsp; &nbsp; &nbsp;chomp;<br />
&nbsp; &nbsp; &nbsp; &nbsp;my($count,$wa,$id,$n1,$e1,<wbr />$n2,$e2,$n<wbr />3,$e3,$n4,<wbr />$e4)=split<wbr />/\|/;<br />

</div>


  use File::ReadBackwards ;

    tie *FILE1, 'File::ReadBackwards', "../gt/$in{'id'}/rafs.txt" or die "can't read '../gt/$in{'id'}/rafs.txt' $!" ;

    while( <FILE1> ) {
       chomp;
       my($count,$wa,$id,$n1,$e1,$n2,$e2,$n3,$e3,$n4,$e4)=split/\|/;


<div>
OZO<br />
<br />
That seems like a very efficient way, I tried though and it crashed, I tried a few things but could not make run...
</div>


OZO

That seems like a very efficient way, I tried though and it crashed, I tried a few things but could not make run...

<div>
What did you try and how did it crash?<br />
Do you have File::ReadBackwards installed?
</div>


What did you try and how did it crash?
Do you have File::ReadBackwards installed?

<div>
<div class="content wysiwyg-content">
Here is what I have...<br />
<br />
open (FILE1,&quot;../gt/$in{'id'}/ra<wbr />fs.txt&quot;) || &quot;Can't open filename1 $!&quot;;<br />
while( &lt;FILE1&gt; ){<br />
&nbsp; chomp;<br />
&nbsp; my($count,$wa,$id,$n1,$e1,<wbr />$n2,$e2,$n<wbr />3,$e3,$n4,<wbr />$e4)=split<wbr />/\|/;<br />
<br />
How can I make it open and read from bottom up? &nbsp;I know reverse command, but not sure where to stick it in at.
</div>
</div>


Here is what I have...

open (FILE1,"../gt/$in{'id'}/rafs.txt") || "Can't open filename1 $!";
while( <FILE1> ){
  chomp;
  my($count,$wa,$id,$n1,$e1,$n2,$e2,$n3,$e3,$n4,$e4)=split/\|/;

How can I make it open and read from bottom up?  I know reverse command, but not sure where to stick it in at.

Perl File open and read in reverse

Perl is a high-level, general-purpose, interpreted, dynamic programming languages with over 25 years of development. Perl 5 runs on over 100 platforms from portables to mainframes and is suitable for both rapid prototyping and large-scale development projects.  Perl gained widespread popularity as a Common Gateway Interface (CGI) scripting language, in part due to its regular expression and string parsing abilities. In addition to CGI, Perl is used for graphics programming, system administration, network programming, finance, bioinformatics, and other applications.