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

Question

假设我有一个包含这些输入的文件:

line 1


line 2

line3

我的程序应该只存储"line1","line2"和"line3"而不是换行符.我如何实现这一目标？我的程序已经删除了前导空格和尾随空格但是删除换行符没有帮助.我将$ /设置为\n因为每个输入用\n分隔.

Answer 1

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