如何使用Perl跨多行搜索和替换？

Question

$ perl --version
This is perl, v5.10.1 (*) built for x86_64-linux-gnu-thread-multi

$ echo -e "foo\nbar" > baz.txt
$ perl -p -e 's/foo\nbar/FOO\nBAR/m' baz.txt
foo
bar

我怎样才能让这个替代品起作用？

Answer 1

您可以使用-0开关更改输入分隔符：

perl -0777pe 's/foo\nbar/FOO\nBAR/' baz.txt

-0777将分隔符设置为undef，-0单独将其设置为\0，这可能适用于不包含空字节的文本文件。

请注意/m是不必要的，因为正则表达式不包含^也不包含$。

Answer 2

它与-p开关有关。它一次读取一行输入。所以你不能对两行之间的换行运行正则表达式，因为它永远不会匹配。您可以做的一件事是读取所有输入修改变量$/并将正则表达式应用于它。一种方式：

perl -e 'undef $/; $s = <>; $s =~ s/foo\nbar/FOO\nBAR/; print $s' baz.txt

它产生：

FOO
BAR