How to look for 2 regex and print all preciding data

[learingperl01]

Hello everyone,

I am hoping someone can shed some light/point me in the right direction. I am trying to figure out how to search for the 1st occurrences of two strings and once they are found print all previous data.

Below is some sample data which I would be working with, any pointers etc would be greatly appreciated as I don't even know how to get that started.

Right now what I am doing is having to run matches on each line that I want to match and print on.

Sender: 123

Recipient:  aaa

Date: 2009/03/04

Time: 08:20:01

Operator: test

Subject: test01

Content: data data

Subject: RE: test

Content: data2 data

Additional: additional data

what I would like to do is find the first occurrence of Subject: followed by the first occurrence of Content: and print all data prior to the 1st Content: match.

desired output below:

Sender: 123

Recipient:  aaa

Date: 2009/03/04

Time: 08:20:01

Operator: test

Subject: test01

 

[Kirsle]

As your script reads the file, push each line onto the end of an array; when the keyword you're looking for is found, then the array contains all the lines read so far from the file.

Cuvou.com | My personal homepage

perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'