Solaris

Code:

awk:
nawk -v ran=$1 -v pat=$2 '{
arr[NR]=$0
if (index($0,pat)!=0)
        line=NR
}
END{
for(i=line-ran;i<=line+ran;i++)
        print arr[i]
}' file

perl:
$pat=shift;
$ran=shift;
open FH,"<a";
while(<FH>){
$arr[$.]=$_;
if (index($_,$pat)>=0){
$line=$.;
}
}
close(FH);
for($i=$line-$ran;$i<=$line+$ran;$i++)
{
print $arr[$i];
}

Perfect!!.. This is what I was looking for. Thanks!

awesome!!!

nawk 'c-->0;$0~s{if(b)for(c=b+1;c>1;c--)print r[(NR-c+1)%b];print;c=a}b{r[NR%b]=$0}' b=2 a=4 s="string" file1

This one liner really helped me to get what I want but there is little deviant to my problem...

I want to search for a string and go back several lines(the number of lines is not fixed) and catch a pattern which is associated with the searched string.
for eg:
<HEADER>
line1
line2
line3
line4
............
<string>
I want to somehow associate <HEADER> line once I find my <string> and discard the rest of results..As I said, the number of lines is not fixed till we traverse back to <HEADER> line.

Is there any way we can achieve this?.

-Anduzzi

Try...

Code:

awk '$0~s,$0~t' s="<HEADER>" t="<string>" file1

Could you please explain the command and for some reason the syntax doesnt quite work for me ?.

Thx !