Come si esce da un ciclo in Perl?

Sto cercando di usare un'istruzione break in un ciclo for, ma dal momento che sto usando anche le subs strict nel mio codice Perl, sto ottenendo un errore che dice:

Bareword "break" non consentito mentre "strict subs" in uso in ./final.pl linea 154.

C'è un workaround per questo (oltre a disabilitare gli strict subs)?

Il mio codice è formattato come segue:

for my $entry (@array){
    if ($string eq "text"){
         break;
    }
}
Peter Mortensen
Domanda modificata 16º marzo 2014 в 8:27
Programmazione
perl loops break strict
19º novembre 2008 в 8:21
20 visualizzazioni
Soluzione

Oh, l'ho trovato. Si usa last invece di break

for my $entry (@array){
    if ($string eq "text"){
         last;
    }
}
Alexander Roskamp
Risposta modificata 5º gennaio 2018 в 5:41
Commentari (4)

Dati aggiuntivi (nel caso in cui abbiate altre domande):


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

                    last FOO;  # --->
                                   # |
                 }                 # |
          }                        # |
       }                           # |
 } #
Peter Mortensen
Risposta modificata 16º marzo 2014 в 8:28
Commentari (2)

Su una grande iterazione mi piace usare gli interrupt. Basta premere Ctrl + C per uscire:

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

while(!$exitflag) {
    # Do your stuff
}
Peter Mortensen
Risposta modificata 20º marzo 2017 в 5:40
Commentari (2)