Small Perl script to extract a chunk of text.

I have been using the Perl line:

perl -e 'while (<>){print if (/^START/../^END/);}' [url removed, login to view]

to extract a chuck of text in between START and END in a text file and write it to standard output. I would like to improve on this a bit and write a script that would write TWO files -- one with the extracted lines and one that will be the original file MINUS the extracted line.

The command line should then take 3 files as in:

extract -orig [url removed, login to view] -new [url removed, login to view] --extracted [url removed, login to view]

where [url removed, login to view] will be the same as the original minus the extracted lines and [url removed, login to view] will contain the extracted lines (in between START and END).

Test file is attached.

Compétences : Perl, Architecture Logicielle

en voir plus : perl extract substring between two patterns, perl extract string after pattern, perl extract string between delimiters, perl extract word from string, perl regex extract multiple matches, perl extract string between two patterns, perl extract substring regex, perl extract substring pattern, perl script extract line file, perl script extract xml csv, perl script extract data text file, perl script extract email address, perl script extract file, perl script extract email addresses file, perl script extract email address file

Nº du projet : #16359756