¿Cómo salgo de un bucle en Perl?

Question

estoy tratando de utilizar una declaración breakfor en un bucle, pero como yo también estoy usando submarinos estrictas en mi código Perl, estoy recibiendo un error que dice:

"ruptura"

Bareword no permitido mientras "subs estricta" en uso en ./final.pl línea 154.

¿hay una solución para esto (además de la desactivación submarinos estrictas)?

Mi código tiene el siguiente formato:

for my $entry (@array){ 
    if ($string eq "text"){ 
     break; 
    } 
} 

Answer 1

Oh, lo encontré. Usted utilizar last en lugar de break

for my $entry (@array){ 
    if ($string eq "text"){ 
     last; 
    } 
} 

Answer 2

datos adicionales (en caso de tener más preguntas):

FOO: { 
     for my $i (@listone){ 
      for my $j (@listtwo){ 
       if (cond($i,$j)){ 

        last FOO; # ---> 
            # | 
       }     # | 
      }      # | 
     }       # | 
} # <------------------------------- 

Answer 3

En una gran iteración me gusta usar las interrupciones. Sólo tiene que pulsar Ctrl + C para dejar de fumar:

my $exitflag = 0; 
$SIG{INT} = sub { $exitflag=1 }; 

while(!$exitflag) { 
    # Do your stuff 
} 

Answer 4

Simplemente last funcionaría aquí:

for my $entry (@array){ 
    if ($string eq "text"){ 
     last; 
    } 
} 

Si ha anidado bucles, entonces last saldrá desde la más interna. Utilice etiquetas en este caso:

LBL_SCORE: { 
     for my $entry1 (@array1){ 
      for my $entry2 (@array2){ 
       if ($entry1 eq $entry2){ # or any condition 
        last LBL_SCORE; 
       } 
      } 
     } 
} 

Dada last declaración hará que el compilador para salir tanto de los bucles. Lo mismo se puede hacer en cualquier número de bucles, y las etiquetas se pueden arreglar en cualquier lugar.