Почему моя карта Perl ничего не возвращает?

Обратите внимание, что map также изменит ваш исходный массив. Так что вы могли бы сделать и то и другое:

map {s/ //g} @outdata;

и вообще пропустите переменную @filtered, или если вам нужно сохранить оригиналы,

@filtered = @outdata;
map {s/ //g} @filtered;

Хотя, в этом случае, возможно, было бы более читабельно использовать foreach:

s/ //g foreach @filtered;

Попробовать это:

@filtered = map {s/ //g; $_} @outdata;

Проблема заключается в том, что оператор s в perl изменяет $_, но фактически возвращает количество внесенных изменений. Таким образом, дополнительный $_ в конце приводит к тому, что perl возвращает измененную строку для каждого элемента @outdata.

Ответ Грега имеет ту проблему, что он будет изменять исходный массив, когда $_ передаются с псевдонимами. Тебе нужно:

@filtered = map { (my $new = $_) =~ s/ //g; $new} @outdata;

Чтобы проследить за точкой зрения титония, это также сделает трюк:

@filtered = map {local $_=$_; s/ //g; $_} @outdata;

"local" гарантирует, что вы работаете с копией, а не с оригиналом.

В perl 5.14 можно использовать модификатор /r regex для выполнения неразрушающей замены .

@filtered = map {s/ //gr} @outdata;

use Algorithm::Loops "Filter";
@filtered = Filter { s/ //g } @outdata;

В качестве контрапункта к ответу Грега, вы можете злоупотреблять grep:

@filtered = grep {s/ //g; 1} @outdata;

Не делай этого.