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

Question

Когда я бегу следующее заявление:

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

она возвращается пустой список вместо отфильтрованного списка, который я ожидал. То, что я пытаюсь сделать, - удалить каждое возникновение   из массива строки (который является XML-файлом).

Очевидно, что я ничего не понимаю. Может ли кто-нибудь сказать мне, как правильно это сделать, и почему это не работает для меня, как есть?

Answer 1

Попробуйте это:

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

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

Answer 2

В противовес ответ Грега, вы могли бы злоупотребить Grep:

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

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

Answer 3

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

map {s/ //g} @outdata; 

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

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

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

s/ //g foreach @filtered; 

Answer 4

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

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

«Локальный» гарантирует, что вы работаете над копией, а не оригиналом.

Answer 5

У Greg есть проблема, что он изменит исходный массив, поскольку $ _ передается с псевдонимом. Вам нужно:

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

Answer 6

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

Answer 7

В Perl'е 5.14 можно использовать /г модификатора регулярное выражение для make non-destructive substitution.

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