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

حلقة do while :

تقوم do while loop بتنفيذ كتلة من العبارة أولاً ثم تتحقق من الحالة. اذا عاد الشرط صحيحًا ، فستواصل الحلقة تكرارها.

إنها مشابهة  لـ while loop ولكن الاختلاف الوحيد هو أنه في حلقة do-while سيتم تنفيذ كتلة من العبارات داخل جسم الحلقة مرة واحدة على الأقل.

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

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

مثال عن nested do while :

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

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

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