Цикл while в Perl

Perl 循环Циклы Perl

Оператор while повторно выполняет инструкцию или группу инструкций, пока заданное условие истинно. Условие проверяется перед выполнением тела цикла.

Синтаксис

Формат синтаксиса следующий:

while(condition)
{
   statement(s);
}

Здесь statement(s) может быть одним оператором или блоком кода, состоящим из нескольких операторов.

условие может быть любым выражением. Когда условие истинно, цикл выполняется. Когда условие ложно, поток программы выйдет из цикла.

Блок-схема

Perl 中的 while 循环

На диаграмме,whileКлючевой момент цикла состоит в том, что цикл может не выполниться ни разу. Когда условие ложно, тело цикла пропускается, и следующий оператор после цикла while выполняется непосредственно.

Пример

#!/usr/bin/perl $a = 10; # Выполнить цикл while while( $a < 20 ){ printf "Значение a равно:$a\n"; $a = $a + 1; }

В программе тело цикла выполняется, когда переменная $a меньше 20, и цикл завершается, когда переменная $a больше или равна 20.

Выполнение вышеуказанной программы дает следующий вывод:

a 的值为 : 10
a 的值为 : 11
a 的值为 : 12
a 的值为 : 13
a 的值为 : 14
a 的值为 : 15
a 的值为 : 16
a 的值为 : 17
a 的值为 : 18
a 的值为 : 19

Perl 循环Циклы Perl

Другие расширения