Shell Programming and Scripting

Hi friends,
Please help me in this...

lets say in the below program

Code:

...........
...........

Start
"Hello"
"welcome to this world"
END
...................
...................
Start
"Hi"
"Welcome to C Program"
END
...................
...................

In this how to print the lines between Start and END?

Try this,

Code:

sed -n '/Start/,/END/p' <inputfilename>

If you don't want the delimiting lines to be printed, you can do something like that :

Code:

awk '/Start/ { ok=1 } /END/ { ok=0 } ok' inputfile

Jean-Pierre.

Guess aigles wanted something like this..

Code:

awk '/Start/ {getline; ok=1 } /END/ { ok=0 } ok' inputfile

Opps, thanks michaelrozar17

Another version that doesn't needs a getline :

Code:

nawk '/END/ { ok=0 } ok ; /Start/ { ok=1 }' inputfile

Jean-Pierre.

Code:

 
perl -0ne 'print $1 if /Start(.*)END/sg' input

The sed solution, as mentioned above, prints out the delimiting lines. Both the sed and awk solutions will start printing lines as soon as they see a line matching "Start"; they will not wait until the matching "END" is found. This could be relevant if one wants to strictly limit output to sections bounded on both ends by the respective patterns.

In case it's of any use, here's a sed solution that does not print the delimiting lines and that insures that the tail of any printed text is /END/ delimited:

Code:

sed -n '/^START$/,/^END$/{/^END$/{s/.*//; x; s/\nSTART\n//p; d;}; H;}'

Regards,
Alister

---------- Post updated at 12:00 PM ---------- Previous update was at 11:49 AM ----------

Hi, getmmg:

Using the following sample data, for me your suggestion yields nothing (0 bytes of output). Is there something in that one-liner that may not be supported in perl 5.8.6 (it's an old OS X Tiger 10.4.11 machine)? I skimmed over a couple of the perldelta pods for later releases, but nothing jumped out at me.

My sample data:

Code:

START
yes1
yes2
END
no
START
END
START
yes3
yes4
yes5
END
no
no
START
no
no

Expected output:

Code:

yes1
yes2
yes3
yes4
yes5

It's not important, but I'm curious to know. Any ideas?

Disclaimer: When I last regularly hacked with perl, references were new!

Regards,
Alister