Re: print line 5 lines previous to comaprison line!

Something like this should work

open X,"<$file";
@rows = <X>;
close X;

for($i=0;$i<$#rows;$i++)
{
        if($rows[$i] =~ /something/) {
                print $rows[$i-5];
        }
}
[download]

Comment on Re: print line 5 lines previous to comaprison line! Download Code

Replies are listed 'Best First'.
Re: Re: print line 5 lines previous to comaprison line! by davorg (Chancellor) on Jun 07, 2001 at 17:08 UTC
Why read in the whole file when you're only ever interested in five lines? Sounds a bit wasteful of memory to me :) -- <http://www.dave.org.uk> Perl Training in the UK <http://www.iterative-software.com>	[reply]
Re: Re: Re: print line 5 lines previous to comaprison line! by gollem (Acolyte) on Jun 07, 2001 at 17:16 UTC
(I cleared this post. Note to self: never post when hungover) Update:I agree, it's wasteful	[reply]
Re: Re: print line 5 lines previous to comaprison line! by pat (Initiate) on Jun 07, 2001 at 18:48 UTC
when I was opening the file it would not open as you had written above so I changed to open (X, $inputfile); and it opened fine and did what it was meant to do thanks but i have seen this before where the syntax you used to open the file did not work, have you seen this and any idea why it is so thanks once again! Pat ( go raibh mile maith agat)	[reply]