Perl ยังคงคำชี้แจง

วงจร Perl

Perl ยังคงบล็อกมักจะถูกดำเนินการก่อนที่จะมีการตัดสินคำสั่งเงื่อนไขอีกครั้ง

ยังคงงบสามารถใช้ในขณะที่และ foreach ห่วง

ไวยากรณ์

ในขณะที่ยังคงห่วงงบไวยากรณ์เป็นดังนี้:

while(condition){
   statement(s);
}continue{
   statement(s);
}

ห่วง foreach ยังคงไวยากรณ์คำสั่งดังต่อไปนี้:

foreach $a (@listA){
   statement(s);
}continue{
   statement(s);
}

ตัวอย่าง

ยังคงใช้ขณะที่คำสั่งห่วง:

#/usr/bin/perl
   
$a = 0;
while($a < 3){
   print "a = $a\n";
}continue{
   $a = $a + 1;
}

โปรแกรมข้างต้นผลลัพธ์คือ:

a = 0
a = 1
a = 2

ยังคงใช้คำสั่ง foreach ห่วง:

#/usr/bin/perl
   
@list = (1, 2, 3, 4, 5);
foreach $a (@list){
   print "a = $a\n";
}continue{
   last if $a == 4;
}

โปรแกรมข้างต้นผลลัพธ์คือ:

a = 1
a = 2
a = 3
a = 4

วงจร Perl