¿Hay algo así como `last` for` map`?

Question

En Perl, ¿es posible finalizar arbitrariamente una ejecución de map, p. algo equivalente a last en un bucle?

Sería un poco como esto:

map { 
    if (test == true) { last; } dosomething 
} @myarray 

Answer 1

Nop. No puede last, next, etc. de un map, grep o sort bloques porque they are not loops.

Habiendo dicho eso, el fragmento de código en la pregunta es una práctica deficiente porque map nunca se debe llamar en contexto vacío. Se supone que deben usarse para transformar una lista en otra.

Aquí hay una mejor manera de escribirlo si realmente debe inline que (modificado según el comentario de ysth):

$_ == 10 && last, print for 1..15; # prints '123456789' 

Answer 2

No. Use un ordinal foreach bucle y la declaración last.

Desde 5.8.1, map is context aware - en el contexto vacío, no se construye ninguna lista. De todos modos, el mapa se usa generalmente para obtener una lista de otra lista, evaluando expr para cada elemento de la lista original.

Answer 3

Puede utilizar un salto de longitud (eval/die par) para rescatar a las de cualquier construcción anidada que no soporta directamente:

eval { map{ die if test; dosomething } @myarray }; 

Pero como Zaid dijo, usando un bucle for/foreach en este caso es mejor porque no está utilizando el valor de retorno de map.

Answer 4

¿Quieres un bucle for:

foreach (@myarray) { 
    last if test; 
    ... 
} 

Se hace lo mismo. map es para transformar una lista en otras listas.

Answer 5

Se puede usar un do-bloque con un modificador de declaración:

do { 
    last if test; 
    dosomething; 
} for (@myarray); 

Aunque el uso de un bloque foreach probablemente sería más claro, y futuros encargados del mantenimiento de su código se lo agradecerán.

foreach (@myarray) { 
    last if test; 
    dosomething; 
} 

Answer 6

Existen construcciones tipo mapa que hacen exactamente lo que usted desea hacer. Echar un vistazo a List::Util y List::MoreUtils (también convenientemente empaquetados juntos como List::AllUtils):

use List::MoreUtils 'first'; 

# get first element with a {foo} key 
my $match = map { $_->{foo} eq 'some string' } @elements; 

Si no desea extraer un elemento (s) de la lista, a continuación, utilizar foreach, de acuerdo con las respuestas anteriores.

Answer 7

Prueba goto LABEL. Sin embargo, no sé qué tan seguro es eso.