Введение в Perl

Redo


- начать новый цикл не вычисляя EXPR и не выполняя continue блок.

Пример:

M1: while ($i < 6) { ++$i; # Увеличиваем счетчик на 1 redo M1 if $i == 3; # Далее пропустить для $i = 3 ++$i; # иначе увеличиваем счетчик еще раз на 1 } continue { print "$i "; # Печатаем $i }

Результат: 2 5 7



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