使用perl作为更好的grep，使用单线模式m / RE / s匹配多条线路

Question

我正在尝试在表达式之间插入文本（例如BEGIN和END），这些文本可能不在同一行：

perl -wln -e 'm/BEGIN.+END/s and print;' < file.txt

请注意，由于s修饰符（在m/RE/s中），"."可以匹配换行符（以及其他任何内容）。

这使得模式匹配特定顺序中的单词与它们之间的任何内容（即模式BEGIN在一行上，而模式END在下面的几行上）。 如果两个模式在同一行上，这可以正常工作，但不能跨越多行。我在这里缺少什么？

Answer 1

其实我确实找出了缺失的部分！我需要使用-0777选项在整个文件中搜索记录，然后使用print $&打印匹配的表达式：

perl -wln -0777 -e 'm/BEGIN.+END/s and print $&;' < file.txt