用 Perl 删除空行和空格答案

【问题标题】：Remove empty lines and space with Perl用 Perl 删除空行和空格
【发布时间】：2015-11-25 23:26:02
【问题描述】：

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

我进行了搜索，但没有一个解决方案能够解决我的问题。当我打印字符串时，我看不到任何特殊字符，如 \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

【问题讨论】：

标签： perl

【解决方案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

【讨论】：

【解决方案2】：

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

为我工作

【讨论】：