Создание серверных приложений на языке PERL
1eeb656d

Оператор do



Оператор do

do {operator} while (EXPR) do {operator} until (EXPR)

Оператор while/until проверяет условие в начале каждого цикла, до входа в него. Если результат проверки условия — "ложь", цикл не будет выполнен вообще.

Иногда возникает необходимость проверять условие не в начале, а в конце цикла. Для этого в Perl есть оператор do {} while, который очень похож на обычный оператор while, за исключением того, что он проверяет выражение только после однократного выполнения цикла.

* * * *

Приведенная ниже программа демонстрирует работу оператора While.

#!/usr/bin/perl #programm 7 print "Content-Type: text/html\n\n"; $i=1; while($i<9){ print "$i X 7 = ".$i*7; print "<BR>"; }continue{$i++}

* * * *

Модернизируйте программу, которая выводит таблицу Пифагора (Всё равно какую) так, чтобы вместо оператора For в ней использовались операторы While и Until.

Дополнительная информация: [Управляющие структуры ] [Управляющие структуры 2 ]



Содержание раздела