in reply to Print a previous to previous of a matching line
sub getGI { my $previous1,$previous2; open(FILE, "twentySeq1e-10.out") or die("Cannot open file"); while(<FILE>) { my $line = $_; if($line=~/# 0 hits found/) { print "$previous2\n"; } $previous2= $previous1; $previous1= $line; }
The generalized solution would use an array. You use unshift() to add the line at the start of the array and you use pop() to remove the last line if the array has length n+1 (with n being the number of lines you want to remember). That is called a pipeline, queue, shift register or FIFO (first-in-first-out).
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Print a previous to previous of a matching line
by ag88 (Novice) on Oct 08, 2013 at 10:14 UTC |
In Section
Seekers of Perl Wisdom