Re: to read a line 2 lines above a line having a grepped string...

[John W. Krahn]

dilip wrote:

hi all,

Hello,

suppose i have a file having the following data..

SN = TOM
FDN = SALLY
OPERATIONAL STATE = ENABLED

Now suppose i grep the string "ENABLED", i get the third line.But from
this very line i need to go 2 lines above and get the SN value
also.Please suggest .

Something like this should work:

my @buffer;
while ( <> ) {
    push @buffer, $_;
    shift @buffer if @buffer == 4;
    if ( /ENABLED$/ ) {
        splice @buffer, 1, 1;
        last;
        }
    }
print @buffer;



John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order.                            -- Larry Wall

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/