Введение в Perl

Last


- подобен оператору break в языке С. Немедленно прерывает цикл. Блок continue пропускается.

Пример:

M1: while ($i < 6) { ++$i; # Увеличиваем счетчик на 1 last M1 if $i > 3; # Выход из цикла если $i > 3 ++$i; # иначе увеличиваем счетчик еще раз на 1 } continue { print "$i "; # Печатаем $i }

Результат: 2 4



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