Bir for' döngüsünde
break' deyimi kullanmaya çalışıyorum, ancak Perl kodumda da strict subs kullandığım için şöyle bir hata alıyorum:
Bareword "break" iken izin verilmez "strict subs" ./final.pl adresinde kullanımda satır 154.
Bunun için bir geçici çözüm var mı (katı abonelikleri devre dışı bırakmanın yanı sıra)?
Kodum aşağıdaki gibi biçimlendirilmiştir:
for my $entry (@array){
if ($string eq "text"){
break;
}
}
Ek veriler (daha fazla sorunuz olması durumunda):
FOO: {
for my $i ( @listone ){
for my $j ( @listtwo ){
if ( cond( $i,$j ) ){
last FOO; # --->
# |
} # |
} # |
} # |
} # <-------------------------------
Büyük bir yinelemede kesintileri kullanmayı seviyorum. Çıkmak için sadece Ctrl + C tuşlarına basın:
my $exitflag = 0;
$SIG{INT} = sub { $exitflag=1 };
while(!$exitflag) {
# Do your stuff
}