asked on

extract data from notepad - perl

can u give me a script for the following?

1.txt
___________________________________________
XXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXBBBBBBBBBBB
WWWWWOOOOONNNNNNNNNNNN
WwwIIIIIOOOOOOO |quote= "pravin"| SSSSSSSSSSSS
SSSSSSSSSSSSSSSSSSSSSS
SSSSSSSSSSSS
SSSSSSSSSSSSSSSSSSSS
SSSSSSSSSSS |/quote| UUUWWWDDDDDDD
XXXWWXXXXXXBBBBXXXBBBBBBB
WWWWWOOSSSSSSSSS
SSSSSSSSS
___________________________________________

Required OUTPUT:

SSSSSSSSSSSS
SSSSSSSSSSSSSSSSSSSSSS
SSSSSSSSSSSS
SSSSSSSSSSSSSSSSSSSS
SSSSSSSSSSS

Gerwin Jansen

Do your require that perl is used? I'd use a simple grep to get your output:

grep -o [S]* 1.txt

Open in new window

Output:

SSSSSSSSSSSS
SSSSSSSSSSSSSSSSSSSSSS
SSSSSSSSSSSS
SSSSSSSSSSSSSSSSSSSS
SSSSSSSSSSS
SSSSSSSSS
SSSSSSSSS

Open in new window

pravink22

ASKER

Hi,

My requirement is to grep data present in between

|quote= "pravin"| to |/quote|

Thanks

ozo

perl -0777 -pe '($_)=/\|quote= "pravin"\|(.*?)\|\/quote\|/s' 1.txt

pravink22

ASKER

can you write the full program?

ASKER CERTIFIED SOLUTION

tel2

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

tel2

Thanks for the points, pravink.

Probably some of the points should have gone to others (especially ozo, who needs them so badly), so bear that in mind for the future. As I had indicated, my scripts were based on ozo's one-liner. I assume you know how to split points among multiple experts?

tel2