Shell Programming and Scripting

I am currently on a project where I must extract all the data between two words. I am currently running a perl script and trying to use awk to extract specific lines of text between two words: ./myscript.pl | awk ' "

An example of the output of the script:

===================
WORKING LOG
===================
<-----------------------
------------------------
------------------------
------text here---------
------------------------
------------------------
----------------------->
===================

I'm trying to use the awk command in the UNIX shell to extract everything between WORKING LOG and the last row of "=" signs. Is there a way to specficy with regexs or in awk syntax to take all the text between two specified points?

Using awk to print lines between "WORKING LOG" and the second line of equals signs...

Code:

  /^WORKING LOG/ {flg = 2}
  flg
  flg && /^========/ {flg--}

Same code translated to perl...

Code:

while (<>) {
    if (/^WORKING LOG/) {
        $flg = 2;
    }
    print $_ if $flg;
    if ($flg && /^========/) {
        $flg--;
    }
}

Try with awk as,
awk '{ if ($0 ~ "WORKING LOG") { getline;do {print $0;getline;}while ($0 ~ "---"); }}END { print $0 }'

hth.

----------

muthukumar's solution almost worked for me and got me on the right track.

I expanded it to multiple lines (I prefer easy-to-read over compact) and got this to work:

{
if ($0 ~ "text-start")
{
getline
while (! ($0 ~ "text-end"))
{
if ($0 ~ "text-find")
{
print FNR, ":", $0
}
getline
}
}
}


if you put that script in a file called awk-script, then you would invoke it to search a file called text2search as follows:

awk -f awk-script text2search

it will print out the line #(s) of where it found the search text in between the two tags/marker text.

perl:

Code:

$begin=shift;
$end=shift;
open(FH,"<a");
while(<FH>){
	if(m/$begin/){
		$s=$.;
	}
	if(m/$end/){
		$e=$.;
	}
	$arr[$.]=$_;
}
close(FH);
for($i=$s;$i<=$e;$i++){
	print $arr[$i];
}