regex - 如何使用 Perl 的正则表达式用单个换行符替换多个换行符？

Question

我有一个包含空行 (\n\n) 的文档。可以使用 sed 删除它们:

echo $'a\n\nb'|sed -e '/^$/d'

但是我如何用 perl 中的普通正则表达式来做到这一点？任何类似以下的内容根本没有显示任何结果。

echo $'a\n\nb'|perl -p -e 's/\n\n/\n/s'

Answer 1

您需要使用 s/^\n\z// .输入是逐行读取的，因此您永远不会得到超过一个换行符。相反，删除不包含任何其他字符的行。您应该调用 perl使用

perl -ne 's/^\n\z//; print'

不需要 /s转变。