perl - 如何忽略 perl 中的多个换行符？

Question

假设我有一个包含以下输入的文件:

line 1


line 2

line3

我的程序应该只存储“line1”、“line2”和“line3”而不是换行符。我该如何实现这一目标？我的程序已经删除了前导和尾随空格，但它无助于删除换行符。我将 $/设置为\n 因为每个输入都由\n 分隔。

Answer 1

while (<>) {
    chomp;
    next unless /\S/;
    print "$_\n";
}