Perl пустой замена в строке

Question

у меня есть это два вида строк:

EVASA   2144 
IN ELABORAZIONE   16278 

Мне нужно некоторое PERL скрипт, чтобы заменить все пробелы с только один.

Выход мне нужно:

EVASA 2144 

Любое предложение?

Answer 1

Вы можете использовать очень простое регулярное выражение:

#!/usr/bin/perl 
use strict; 

my $line = 'EVASA   2144'; 

# This is the line that actually does the work 
$line =~ s/\s+/ /g; 

print $line, "\n"; 

Answer 2

$a = "hello \t world"; 
$a =~ s/\s+/ /; 
print $a; 

, если вы можете иметь несколько мест в строке, где требуется замена иметь место, используйте

$a = "hello \t world hi"; 
$a =~ s/\s+/ /g; 
print $a; 

Answer 3

Мое предложение что вы потратите некоторое время на чтение Regular Expression tutorial, который распространяется со всеми современными версиями Perl.

Answer 4

Вы также можете использовать оператор tr с s Option, это может сделать больше вещей для вас (трансформирующие символов), вероятно, быстрее, чем подход регулярных выражений

$a =~ tr/ \t/ /s; 

Объяснение можно найти в perlop страницы руководства:

perldoc perlop