用Perl删除空行和空格

Question

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

我进行了搜索，但没有一个解决方案可以解决我的问题。当我打印字符串时，我没有看到像\ n \ t \ r \ n这样的特殊字符。这是我的字符串：

$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

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

为我工作

Answer 2

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