Perl在`-0`模式下匹配换行符

Question

题

假设我有一个像这样的文件：

I've got a loverly bunch of coconut trees.

Newlines!

Bahahaha
Newlines!
the end.

我想替换出现的“换行符”！ 用（例如）NEWLINES！空行包围。 因此，理想的输出是：

I've got a loverly bunch of coconut trees.

NEWLINES!

Bahahaha
Newlines!
the end.

尝试次数

忽略“被换行符包围”，我可以这样做：

perl -p -e 's@Newlines!@NEWLINES!@g' input.txt

它将替换所有出现的“换行符”！ 与“ NEWLINES！”。

现在，我尝试仅选择“换行符”！ 被\\ n包围：

perl -p -e 's@\nNewlines!\n@\nNEWLINES!\n@g' input.txt

不走运（请注意-我不需要s开关，因为我没有使用. ，我不需要m开关是因为我没有使用^和$ ；无论如何，添加它们都无法完成这项工作） 。 先行/后退也不起作用：

perl -p -e 's@(?<=\n)Newlines!(?=\n)@NEWLINES!@g' input.txt

经过一些搜索，我发现perl逐行读取文件（很有意义； sed也是如此）。 因此，我使用-0开关：

perl -0p -e 's@(?<=\n)Newlines!(?=\n)@NEWLINES!@g' input.txt

当然这是行不通的-0用空字符替换换行字符。

所以我的问题是-我该如何匹配这种模式（我不希望在regex的“ s @ pattern @ replacement @ flags”结构之外写任何Perl）？

是否可以匹配该空字符？ 我确实尝试过：

perl -0p -e 's@(?<=\0)Newlines!(?=\0)@NEWLINES!@g' input.txt

没有任何作用。

谁能告诉我如何在perl中匹配换行符？ 是否处于-0模式？ 还是应该使用awk东西？ （我从sed开始，但是即使使用-r它似乎也没有超前/落后的支持。我去了perl，因为我对awk一点都不熟悉）。

干杯。

（PS： 这个问题不是我要的，因为他们的问题与.+匹配的换行有关）。

Answer 1

以下应该为您工作：

perl -0pe 's@(?<=\n\n)Newlines!(?=\n\n)@NEWLINES!@g'

Answer 2

如果文件足够小以至于一次都被存入内存：

perl -0777 -pe 's/\n\nNewlines!(?=\n\n)/\n\nNEWLINES!/g'

否则，保留最后三行的缓冲区读取：

perl -ne 'push @buffer, $_; $buffer[1] = "NEWLINES!\n" if @buffer == 3 && ' \
      -e 'join("", @buffer) eq "\nNewlines!\n\n"; ' \
      -e 'print shift @buffer if @buffer == 3; END { print @buffer }'

Answer 3

我认为他们处理事情的方式导致您以无效的方式组合可能的解决方案。

如果使用内联编辑标记，则可以这样进行：

perl -0p -i.bk -e 's/\n\nNewlines!\n\n/\n\nNEWLINES!\n\n/g' input.txt

我将\\ n值加倍，以确保仅得到上下一行为空的行。