C'è qualcosa come "last` per` map`?

Question

In Perl, è possibile terminare arbitrariamente un'esecuzione map, ad es. qualcosa di equivalente a last in un ciclo?

Sarebbe un po 'come questo:

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

Answer 1

Nope. Non è possibile , next, ecc. Di un map, grep o sort blocchi perché they are not loops.

Detto questo, il frammento di codice nella domanda è una cattiva pratica perché map non dovrebbe mai essere chiamato nel contesto vuoto. Dovrebbero essere usati per trasformare una lista in un'altra.

Ecco un modo migliore per scriverlo se proprio deve inline esso (modificato dopo il commento di ysth):

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

Answer 2

N. Uso un numero ordinale foreach loop e la dichiarazione last.

Dal 5.8.1, map is context aware - nel contesto vuoto, non vengono creati elenchi. In ogni caso, la mappa viene generalmente utilizzata per ottenere una lista da un'altra lista, valutando expr per ogni elemento della lista originale.

Answer 3

È possibile utilizzare un salto in lungo (eval/die coppia) per salvare qualsiasi costrutto nidificato che non supporta direttamente esso:

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

Ma, come detto Zaid, utilizzando un ciclo for/foreach in questo caso è migliore perché non stai utilizzando il valore restituito di map.

Answer 4

Volete un ciclo for:

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

Si fa la stessa cosa. map serve per trasformare una lista in altre liste.

Answer 5

Si potrebbe usare un fai-blocco con un modificatore per la dichiarazione:

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

Pur utilizzando un blocco foreach sarebbe probabilmente più chiara, e future manutentori del codice vi ringrazieranno.

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

Answer 6

Ci sono costrutti simili a mappe che fanno esattamente ciò che si vuole fare. Date un'occhiata a List::Util e List::MoreUtils (comodamente anche confezionato insieme come List::AllUtils):

use List::MoreUtils 'first'; 

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

Se non si desidera estrarre un elemento (s) dall'elenco, quindi utilizzare foreach, come per le risposte precedenti.

Answer 7

Prova goto ETICHETTA. Tuttavia non so quanto sia sicuro.