如何在 perl 中用回车替换行？

Question

How can I find and replace those two lines within the wall of text below?

wall of text
    authorize {
            update request {
            }
wall of text          

I tried this, but it didn't work. The problem is with the carriage return.

perl -p0e  "s/authorize \{\nupdate request \{//" ~/test

Answer 1

try this:

perl -p0e "s/\s*authorize \{\n\s*update request \{\n\s*\}//o" ~/test