Dlaczego moja mapa Perla nie zwraca niczego?

Question

Kiedy używam następujące oświadczenie:

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

to wraca pustą listę zamiast przefiltrowanej listy spodziewałem. Co próbuję zrobić, to usunąć wszystkie wystąpienia   z tablicy ciąg (który jest plikiem XML).

Oczywiście, nie rozumiem czegoś. Czy ktoś może mi powiedzieć, jak to zrobić, i dlaczego to nie działa tak jak ja?

Answer 1

Spróbuj tego:

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

Problemem jest operator s Perl modyfikuje $ _ ale faktycznie zwraca liczbę zmian to wykonane. Tak więc dodatkowy $ _ na końcu powoduje, że perl zwraca zmieniony ciąg znaków dla każdego elementu @ outdata.

Answer 2

Jako kontrapunkt do odpowiedzi Grega, można nadużywać grep:

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

nie rób tego.

Answer 3

Należy zauważyć, że mapa ma również modyfikować tablicę źródłową. Więc można albo zrobić:

map {s/ //g} @outdata; 

i pominąć zmienną @filtered całkowicie, lub jeśli chcesz zachować oryginały,

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

Chociaż w tym przypadku może być bardziej czytelny w obsłudze foreach:

s/ //g foreach @filtered; 

Answer 4

Aby śledzić na punkcie Tithonium, ten będzie również rade:

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

"Lokalny" zapewnia, że ​​pracujesz na kopii, a nie na oryginale.

Answer 5

Odpowiedź Grega ma problem polegający na tym, że zmodyfikuje oryginalną tablicę jako alokowaną wartość _ _. Potrzebne są:

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

Answer 6

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

Answer 7

w Perl 5.14 można użyć /r regex modyfikator do make non-destructive substitution.

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