Цикл do...while в Perl
Циклы PerlВ отличие отforиwhileциклов, которые проверяют условие цикла в начале цикла. В языке Perl,do...whileцикл проверяет своё условие в конце цикла.
do...whileЦикл похож на цикл while, но цикл do...while гарантирует, что цикл выполняется по крайней мере.
Синтаксис
Формат синтаксиса следующий:
do
{
statement(s);
}while( condition );
Обратите внимание, что условное выражение находится в конце цикла, поэтому оператор(ы) в цикле будут выполнены по крайней мере один раз до проверки условия.
Если условие истинно, поток управления возвращается к do выше и повторно выполняет оператор(ы) в цикле. Этот процесс повторяется, пока заданное условие не станет ложным.
Блок-схема
Пример
#!/usr/bin/perl
$a = 10;
# Выполнить цикл do...while
do{
printf "Значение a:$a\n";
$a = $a + 1;
}while( $a < 15 );
После выполнения вышеприведённой программы вывод:
a 的值为: 10 a 的值为: 11 a 的值为: 12 a 的值为: 13 a 的值为: 14Другие расширения