Perl: Perché "last" non può essere utilizzato per uscire da grep o map?

Question

Il perldocs dire quanto segue a proposito last:

last non può essere utilizzato per uscire da un blocco che restituisce un valore come eval {}, sub {} o do {}, e non dovrebbe essere utilizzato per uscire da un grep() o una mappa() operazione.

Perché dovrebbe essere evitato in un grep() omappa()? Sono particolarmente curioso della mappa poiché è un'alternativa al costrutto foreach. I dottori sembrano insistere nel non fare qualcosa senza descrivere le conseguenze.

Answer 1

Innanzitutto, rendersi conto che grep e map sono trasparenti per next, last e redo, proprio come if è.

$ perl -e' 
    print "A"; 
    for (8,9) { 
     print "B"; 
     print map { print "C"; next; print "D"; $_ } 1,2,3; 
     print "E"; 
    } 
    print "F\n"; 
' 
ABCBCF 

Ma i documenti non dice lastnon può essere utilizzato per uscire map, si dice che non dovrebbe utilizzato. Non è chiaro cosa significhi.

• Non li usano pensando che interesseranno map e grep?
• Non li usi in questo modo perché il tuo lettore potrebbe pensare che influiscano su map e grep?
• Non li usi in questo modo perché può lasciare Perl in uno stato traballante?
• Non utilizzarli in questo modo perché il comportamento potrebbe cambiare in futuro?

Non so.

Io non credo che sia # 3 perché non so di eventuali cattivi effetti collaterali dell'utilizzo di next, last e redo lasciare un map o grep callback.

La cosa divertente, lasciando map e grep utilizzando un costrutto di loop non avvisa nemmeno se si lascia un sub nello stesso modo.

$ perl -wE'while (1) { map { last; } 1; }' 

$ perl -wE'while (1) { sub { last; }->(); }' 
Exiting subroutine via last at -e line 1. 

Answer 2

map è significato per mappatura una lista all'altra. È certamente non è un'alternativa a foreach. Ho visto troppo spesso le cose come

map { print "$_\n" } @data; 

che impegna il peccato di utilizzare map per i suoi effetti collaterali e gettando via la lista risultante. Non prenderebbe in considerazione l'utilizzo di

my $x = 99; 
sqrt(my $y = $x * $x); 
print $y; 

e si otterrebbe un avviso.Per lo stesso motivo non si usa map quando si intende for.

Per una ragione pratica, consideriamo

print "A"; 
print map { print "B"; last; print "C";} 1,2,3; 
print "Z"; 

OUTPUT

AB 

quindi in questo caso la last esce l'intero programma. In generale, utilizzando last o next all'interno di un blocco map o grep viene chiuso il blocco contenente, se presente, oppure l'intero programma. Questo è qualcosa da evitare, quindi "last ... non deve essere utilizzato per uscire da un'operazione grep() o map()".

Answer 3

In Perl esiste una discreta quantità di funzionalità che si sovrappongono tra for/foreach, grep e map. Tuttavia, solo perché è possibile utilizzare tutti per risolvere lo stesso problema, non significa che sono tutti lo strumento migliore per quel particolare lavoro (vedere: utilizzando un cacciavite per battere un chiodo).

• grep: Il suo scopo è quello di filtrare un elenco e restituire il sottoinsieme risultante.
• map: Lo scopo è modificare un elenco e restituire l'elenco modificato risultante.
• for/foreach: Il suo scopo è quello di scorrere un elenco e fare qualcosa.

Ora, è possibile realizzare ogni uso di grep e map con for/foreach. grep e map sono essenzialmente zucchero sintattico per usi specifici dell'elaborazione dell'elenco (for/foreach) che sono particolarmente comuni e utili. Con la progettazione, per convenzione e con le migliori pratiche, scambiano alcune cose per maggiore praticità e chiarezza.

Uno di questi è che grep e map sono intesi per restituire un valore. Usarli in un contesto vuoto è scoraggiato e considerato come una violazione del Perl idiomatico. Se non si restituisce un valore, utilizzare for/foreach. Se si restituisce un valore, quindi last interrompe tale processo.

Se si seguono le best practice per Perl, l'utilizzo di grep e map restituirà sempre un valore, il che significa che è necessario evitare l'uso di last.