Comment sortir d'une boucle en Perl ?

Question

J'essaie d'utiliser un break dans un for mais comme j'utilise également des subs stricts dans mon code Perl, j'obtiens une erreur disant :

Le mot "break" n'est pas autorisé lorsque alors que "strict subs" est utilisé à ./final.pl ligne 154.

Existe-t-il un moyen de contourner ce problème (à part la désactivation des subs stricts) ?

Mon code est formaté comme suit :

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

Answer 1

Oh, je l'ai trouvé. Vous utilisez dernier au lieu de rupture

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

Answer 2

Données supplémentaires (au cas où vous auriez d'autres questions) :

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

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

Answer 3

Vous recherchez le dernier mot-clé, par ex.

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

Peut-être un peu hors sujet, mais je préférerais faire une

if (grep $_ eq "text", @array) {

}

L'itération sur de grandes listes en utilisant un for serait très lente, surtout si elles sont imbriquées !

Answer 4

Tout simplement last fonctionnerait ici :

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

Si vous avez des boucles imbriquées, alors last sortira de la boucle la plus interne. Utilisez des étiquettes dans ce cas :

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

Étant donné un last fera en sorte que le compilateur sorte des deux boucles. La même chose peut être faite dans n'importe quel nombre de boucles, et les étiquettes peuvent être fixées n'importe où.

Answer 5

Sur une grande itération, j'aime utiliser les interruptions. Il suffit d'appuyer sur Ctrl + C de démissionner :

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

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