perl - 使用 Perl 删除空行和空格

Question

如何从字符串中删除空行和空格？

我进行了搜索，但没有一个解决方案能够解决我的问题。当我打印字符串时，我没有看到任何特殊字符，如\n\t\r。这是我的字符串:

$string= "Current configuration : 17448 bytes

                              |  Current configuration : 17331 bytes


 ";

我做了以下事情:

$string =~ s/ ++/ /gs;

但是输出结果是这样的:

Current configuration : 17448 bytes
 | Current configuration : 17331 bytes

我希望它像这样显示:

Current configuration : 17448 bytes | Current configuration : 17331 bytes

Answer 1

my $string= "Current configuration : 17448 bytes

                              |  Current configuration : 17331 bytes


 ";

$string =~ s/\s+/ /gs;

print "$string\n"

打印:

Current configuration : 17448 bytes | Current configuration : 17331 bytes