Προσπαθώ να χρησιμοποιήσω μια δήλωση break
σε έναν βρόχο for
, αλλά δεδομένου ότι χρησιμοποιώ επίσης strict subs στον κώδικα Perl, λαμβάνω ένα σφάλμα που λέει:
Bareword "break" not allowed while "strict subs" σε χρήση στο ./final.pl γραμμή 154.
Υπάρχει κάποια λύση γι' αυτό (εκτός από την απενεργοποίηση των strict subs);
Ο κώδικάς μου είναι διαμορφωμένος ως εξής:
for my $entry (@array){
if ($string eq "text"){
break;
}
}
Πρόσθετα στοιχεία (σε περίπτωση που έχετε περισσότερες ερωτήσεις):
FOO: {
for my $i ( @listone ){
for my $j ( @listtwo ){
if ( cond( $i,$j ) ){
last FOO; # --->
# |
} # |
} # |
} # |
} # <-------------------------------
Σε μια μεγάλη επανάληψη μου αρέσει να χρησιμοποιώ διακοπές. Απλά πατήστε Ctrl + C για να τερματίσετε:
my $exitflag = 0;
$SIG{INT} = sub { $exitflag=1 };
while(!$exitflag) {
# Do your stuff
}