No such thing as a small change | |
PerlMonks |
help: extracting multiple lines from file based on match in one lineby my_perl (Initiate) |
on Nov 16, 2004 at 22:15 UTC ( [id://408271]=perlquestion: print w/replies, xml ) | Need Help?? |
my_perl has asked for the wisdom of the Perl Monks concerning the following question:
Hi,
i have a file with different types of records in it in following format: I need to extract all the records that have var2 = 3 into different file and delte them from existing one. I know that every record that has var2 = 3 is 11 lines long. So every time i find var2 = 3 i need to get one line before (record header) and next 10 lines into new file, and delete them from original file. Please help :) <Rec 1> var2 = 5 some text some text some text some text </Rec 1> <rec 2> var2 = 3 some text some text some text some text some text some text some text some text </Rec 2> <Rec 3> var2 = 7 some text some text some text some text some text some text </Rec 3> <rec 4> var2 = 3 some text some text some text some text some text some text some text some text </Rec 4> so output from this data would be file_1 <Rec 1> var2 = 5 some text some text some text some text </Rec 1> <Rec 3> var2 = 7 some text some text some text some text some text some text </Rec 3> file_2 <rec 2> var2 = 3 some text some text some text some text some text some text some text some text </Rec 2> <rec 4> var2 = 3 some text some text some text some text some text some text some text some text </Rec 4>
Back to
Seekers of Perl Wisdom
|
|