วนลูบ while

              คำสั่ง while เป็นคำสั่งสร้างเงื่อนไขให้ทำงานวนรอบซ้ำๆกัน จนกว่าตัวแปรที่กำหนดจะมีค่าครบตามเงื่อนไข
              while จะนำเอาเรื่องของการกำหนดค่าให้กับตัวแปรหรือ
Assignment Operators เข้ามาเกี่ยวข้องด้วย ถ้ายังจำกันได้ การ Assignment   ค่าให้กับ  Operators ก็คือการสร้างเงื่อนไขและกำหนดค่าให้กับตัวแปรเป็นค่าต่างๆ จนครบที่กำหนด ถ้าจะพูดให้เห็นชัดลองนึกถึงการนับเลข หรือการให้คะแนน ถ้าถูกต้อง จะมีค่าเท่ากับ 1 และเพิ่มค่าให้ 1 คะแนน

            ให้ดูจากภาพจะเข้าใจมากยิ่งขึ้น

                         while1.gif (3599 bytes)

รูปแบบคำสั่ง

 กำหนดค่าตัวแปรเริ่มต้น(Assignment Operators)

      while ( เหตุการณ์ Operator เหตุการณ์ ){ งานที่จะต้องทำ}

 

ตัวอย่างคำสั่ง ที่ 1

while1.pl

#!/usr/bin/perl

print "Content-type: text/html\n\n";

$i = 1;

while ($i <= 10) {

         print $i++;

                            }

 

ผลลัพธ์

12345678910

คำอธิบาย

กำหนดให้ $a มีค่าเท่ากับ 1

จากนั้นสร้างเงื่อนไขว่าให้ $a มีค่าน้อยกว่าหรือเท่ากับ10 ลงมา

และให้พิมพ์ค่า $a คือ 1 - 10

 

ตัวอย่างคำสั่ง ที่ 2

while2.pl

#!/usr/bin/perl

print "Content-type: text/html\n\n";

$i = 1;

while ($i <= 6){

print "<h$i>Hi hello</h$i><br>";

$i++;

}

 

ผลลัพธ์

Hi hello

Hi hello

Hi hello

Hi hello

Hi hello
Hi hello

คำอธิบาย

กำหนดให้ $i มีค่าเท่ากับ 1

จากนั้นสร้างเงื่อนไขว่าให้ $1 มีค่าน้อยกว่าหรือเท่ากับ6 ลงมา

และให้พิมพ์คำว่า Hi hello ด้วยตัวอักษรขนาด 6 ลง ถึง 1


Copy right Passkorn Roungrong 2000