¿Por qué mi mapa de Perl no devuelve nada?

Question

cuando estoy ejecutando la siguiente instrucción:

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

se está volviendo una lista vacía en lugar de la lista filtrada que yo esperaba. Lo que intento hacer es eliminar cada aparición de   de una matriz de cadenas (que es un archivo XML).

Obviamente, no entiendo nada. ¿Puede alguien decirme que la forma correcta de hacer esto podría ser, y por qué esto no funciona para mí tal como está?

Answer 1

Prueba esto:

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

El problema es que el operador s en Perl modifica $ _ pero en realidad devuelve el número de cambios que hizo. Entonces, el $ _ adicional al final hace que perl devuelva la cadena modificada para cada elemento de @outdata.

Answer 2

Como contrapunto a la respuesta de Greg, que podrían hacer mal uso grep:

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

No haga esto.

Answer 3

Tenga en cuenta que el mapa también modificará su matriz fuente. Por lo que podría hacer, ya sea:

map {s/ //g} @outdata; 

y omitir la variable @filtered por completo, o si necesita conservar los originales,

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

Aunque, en ese caso, podría ser más fácil de leer para usar foreach:

s/ //g foreach @filtered; 

Answer 4

Para dar seguimiento a punto de Tithonium, esto también hará el truco:

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

El "local" garantiza que está trabajando en una copia, no en el original.

Answer 5

La respuesta de Greg tiene el problema de que modificará la matriz original cuando se pasen los $ _ alias. Es necesario:

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

Answer 6

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

Answer 7

en Perl 5.14 se puede utilizar el /r modificador expresión regular para make non-destructive substitution.

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