perl的預期吻合後oneliner替代任何

Question

我有這個文件test（大括號之間的線可以改變幾行的量）：

\Email{test} 
\Adresse{tes \\ 
test \\ 
test} 
\Gruss{test} 

我想要什麼：

\Email{test} 
\Adresse{} 
\Gruss{test} 

但suggested solutionperl -i -pe 'BEGIN{undef $/;} s/\\Adresse.*}/\\Adresse{}/smg' test

將文字轉換爲

\Email{} 
\Adresse{} 
\Gruss{} 

並刪除\Gruss{test}。我可以如何防止這種行爲？

編輯澄清：我想保留\Adresse {}之前和之後的整個文本。另外，我在我的「真實文件」中提供了一個解決方案，所以我改進了對問題的描述。

Answer 1

可以試試

perl -0 -pe 's/(\\Adresse\{).*?}/$1}/sg' 

從

\Adresse{tes 
test 
test} 
\Gruss{test} 

從產生

\Adresse{} 
\Gruss{test} 

\Email{test} 
\Adresse{tes \\ 
test \\ 
test} 
\Gruss{test} 

產生

\Email{test} 
\Adresse{} 
\Gruss{test} 

Answer 2

您可以嘗試使用「非貪婪」匹配結合/s正則表達式修飾符來匹配換行符與.。此外，您還可以用-0選項替換BEGIN{undef $/;}：

perl -0 -pe 's/{.*?}/{}/sg' test