Perl ทำ ... ในขณะที่ห่วง
ซึ่งแตกต่างสำหรับและในขณะที่ลูปที่พวกเขากำลังทดสอบสภาพวงของวงในPerl ทำ ... ในขณะที่ห่วงคือการตรวจสอบสภาพของในตอนท้ายของวง
ทำ ... ในขณะที่วงจะคล้ายกับห่วงขณะ แต่ทำ ... ในขณะที่วงจะให้การดำเนินการอย่างน้อยวงจร
ไวยากรณ์
ไวยากรณ์เป็นดังนี้:
do
{
statement(s);
}while( condition );
โปรดทราบว่าการแสดงออกเงื่อนไขปรากฏที่ส่วนท้ายของวงเพื่อให้คำสั่งวง (s) จะถูกดำเนินการอย่างน้อยหนึ่งครั้งก่อนที่จะอยู่ในสภาพที่มีการทดสอบ
ถ้าเงื่อนไขเป็นจริงการไหลของการควบคุมกระโดดกลับข้างต้นไม่และจากนั้นอีกครั้งรันคำสั่งวง (s) กระบวนการนี้ซ้ำจนกว่าเงื่อนไขที่กำหนดจะกลายเป็นเท็จ
แผนภูมิการไหล
ตัวอย่าง
#!/usr/bin/perl
$a = 10;
# 执行 do...while 循环
do{
printf "a 的值为: $a\n";
$a = $a + 1;
}while( $a < 15 );
โปรแกรมข้างต้นผลลัพธ์คือ:
a 的值为: 10 a 的值为: 11 a 的值为: 12 a 的值为: 13 a 的值为: 14