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

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

现在我尝试只挑选出“换行符！”周围有 \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 用空字符替换新行字符。

所以我的问题是——如何匹配这个模式（我不想在正则表达式'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 -0p -i.bk -e 's/\n\nNewlines!\n\n/\n\nNEWLINES!\n\n/g' input.txt

我将 \n 加倍，以确保您只获得上方和下方带有空行的内容。

Answer 3

如果文件足够小，可以一次全部放入内存中：

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 }'