Instrucţiuni de ciclare

81

            Un bloc de instrucţiuni care se execută de mai multe ori este cunoscut sub numele de buclă sau ciclu.

Bucle realizate cu instrucţiunea while

            Cel mai simplu mod de a scrie o buclă în Perl se face cu instrucţiunea while. Sintaxa acestei instrucţiuni este următoarea:

while (expr) {
  # bloc de instrucţiuni ce se repetă
  # atâta vreme cât expr este adevărată 
}

            Un program care ilustrează funcţionarea buclei while este dat în continuare (tst8.pl):

#!/usr/local/bin/perl
$done = 0;
$count = 1; 
print ("This line is printed before the loop starts.\n");
while ($done == 0) {
            print ("The value of count is ", $count, "\n");
            if ($count == 3) {
                        $done = 1;
            }
            $count = $count + 1;
     }
print ("End of loop.\n");

            După rularea acestui program consola text conţine următoarele:

This line is printed before the loop starts.
The value of count is 1
The value of count is 2
The value of count is 3
End of loop.

© Cornel Mironel Niculae, 2003-2004

13-Nov-2009