امثلة على الحلقات WHILE LOOP في لغة Perl

حلقة while :

يتم استخدام حلقة while عندما يكون كود تنفيذ كتلة من التعليمات البرمجية غير معروف. سيتم تنفيذه طالما أن الشرط صحيح.

يتحقق في البداية من الشرط المحدد ثم ينفذ العبارات الموجودة داخل حلقة while.

تستخدم حلقة while في الغالب لإنشاء حلقة لا نهائية.

مثال يطبع الاعداد من 1 الى 10 :

$i = 1;  
# while loop execution  
while( $i <= 10 ){  
   printf "$i\n";  
   $i++;  
}  

مثال عن nested while :

$i = 1;  
# while loop execution  
while( $i <= 3 ){  
   $j = 1;  
   while( $j <= 3 ){  
   printf "$i $j\n";  
   $j++;  
}  
$i++;  
}  

مثال عن حلقة while لا نهائية :

while(true)  
{  
    printf"Infinitive While Loop\n";  
}