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

Question

我正在尝试grep表达式之间的文本(说BEGIN和END),这些表达式可能不在同一行:

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

请注意,由于s修饰符(in m/RE/s),"."允许匹配换行符(以及其他任何内容).

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

Answer 1

其实我确实找出了缺失的部分!我需要使用该-0777选项在记录中搜索整个文件并使用print $&相反的方式打印匹配的表达式:

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