Удалить пустые строки и пространство с помощью 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 

Answer 2

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

Работал для меня