Question

Apologies for the simple question. I don’t clean text or use regex often.

I have a large number of text files in which I want to remove every line until my regex finds a match. There’s usually about 15 lines of fluff before I find a match. I was hoping for a perl one-liner that would look like this:

perl -p -i -e "s/.*By.unanimous.vote//g" *.txt

But this doesn’t work.

Thanks

Answer 1

Solution using the flip-flop operator:

perl -pi -e '$_="" unless /By.unanimous.vote/ .. 1' input-files

Shorter solution that also uses the x=!! pseudo operator:

per -pi -e '$_ x=!! (/By.unanimous.vote/ .. 1)' input-files