Оператор 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 ]
