regex - Perl 正则表达式 : remove everything (including line breaks) until a match is found

Question

很抱歉这个简单的问题。我不经常清理文本或使用正则表达式。

我有大量文本文件，我想删除其中的每一行，直到我的正则表达式找到匹配项。在我找到匹配之前，通常会有大约 15 行绒毛。我希望有一个看起来像这样的 perl 单行代码:

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

但这行不通。

谢谢

Answer 1

使用 flip-flop operator 的解决方案:

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

更短的解决方案也使用了 x=!! pseudo operator :

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