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

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

line 1


line 2

line3

我的程序应该只存储“ line1”，“ line2”和“ line3”，而不存储换行符。我该如何实现？
我的程序已经删除了开头和结尾的空格，但是并没有删除换行符。
我将$ /设置为\ n，因为每个输入都用\ n分隔。

最佳答案

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

关于perl - 如何忽略Perl中的多个换行符？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/9493179/