Михаил Шохирев - Язык программирования Perl

Как уже известно из предыдущей лекции, выражать условное выполнение действия можно и другим, очень популярным в Perl способом: с помощью логических операций. Так, например, можно напечатать результат, если первое выражение будет истинным:

($count % 2 == 1) and print $count;

Условное выполнение действия можно также задавать с помощью модификаторов, о которых речь пойдет далее в этой лекции.

Как известно, циклом называется управляющая конструкция для повторения действий в программе, а однократное выполнение предложений в цикле называется итерацией. В Perl существует множество различных способов задать циклическую обработку данных. Один из них - это операторы управления циклом. Если требуется повторение действий в зависимости от истинности условия, можно воспользоваться циклом while (называемый также циклом с предусловием), в котором каждый раз перед выполнением цикла проверяется условие продолжения: если оно истинно, то блок тела цикла повторяется, иначе цикл заканчивается и выполняется следующее предложение программы.

while (условие) { # проверка истинности условия продолжения # действия, выполняемые, # пока условие истинно } # продолжение программы

Например, можно воспользоваться таким циклом while для вывода на системную консоль десяти случайных чисел от 0 до 1, сгенерированных встроенной функцией rand :

$i = 0; while ($i < 10) { # повторять, пока счетчик не достиг 10 print "\n", rand; # вывести с новой строки случайное число $i++; # увеличить счетчик повторений }

Иногда удобнее для управления циклом задавать условие окончания цикла. В этом случае применяется цикл until , в котором каждый раз перед выполнением тела цикла проверяется условие окончания повторений: если оно истинно, цикл заканчивается и выполняется следующее предложение программы, а если условие ложно, то блок тела цикла выполняется еще раз.

until (условие) { # проверка истинности условия окончания # действия, выполняемые, # пока условие ложно } # продолжение программы

Предыдущий пример вывода случайных чисел можно переписать с использованием цикла until :

$i = 0; until ($i == 10) { # закончить, когда счетчик достигнет 10 print "\n", rand; # вывести с новой строки случайное число $i++; # увеличить счетчик повторений }

Другая управляющая конструкция - цикл for также применяется для повторения действий с проверкой условия продолжения. Но в нем предусмотрены два дополнительных выражения для управления циклом. Первое из них выполняется один раз перед выполнением цикла, и в нем обычно выполняются начальные действия, такие как инициализация переменных. Второе выражение выполняется каждый раз после выполнения тела цикла и перед проверкой условия продолжения работы цикла. Структура этого цикла выглядит так:

for (первое выражение; условие; второе выражение) { # действия, выполняемые, # пока условие истинно } # продолжение программы

В заголовке цикла могут отсутствовать одно или оба выражения, а в случае отсутствия условия оно считается истинным. Однако при этом должны оставаться две точки с запятой, разделяющие выражения. Снова перепишем приведенный выше пример, на этот раз используя цикл for :

for ($i=0; $i<10; $i++) { # повторить 10 раз, увеличивая $i print "\n", rand; # вывести с новой строки случайное число }

Еще один тип цикла предназначен для перебора всех элементов списка, для чего каждый его элемент последовательно помещается в указанную переменную. Это цикл foreach :

foreach переменная (список) { # # работа с переменной, содержащей # текущий элемент обрабатываемого списка }

Примеры использования цикла foreach будут приведены в лекции 5, посвященной спискам. В ней будет рассмотрено еще несколько конструкций, также выполняющих повторение действий.

В Perl есть несколько предложений для управления выполнением программы с помощью перехода в указанную точку программы. Обычно это требуется при работе с циклами. Когда при работе цикла требуется досрочно закончить его выполнение при наступлении какого-то события, то для этого можно воспользоваться оператором last (аналог оператора break в языке C), который прерывает выполнение цикла и переходит к выполнению предложения, следующего за циклом. Например, напечатать 10 случайных чисел от 0 до 0,5 можно так:

$i = 0; while (1) { # безусловно входим в цикл $random = rand; # получаем случайное число if ($i == 10) { # по достижении счетчика 10 last; # ПРЕРЫВАЕМ выполнение цикла } if ($random < 0.5) { # числа меньше 0.5 print "\n", $random; # выводим на консоль $i++; # и увеличиваем счетчик повторений } } # сюда произойдет переход по last

Оператор next (аналог оператора continue в языке C) применяется, когда требуется пропустить выполнение оставшихся предложений в теле цикла и перейти к следующей итерации, начав с проверки условия в заголовке цикла. Вот так можно изменить последний пример, применив next :

$i = 0; while ($i < 10) { # пока счетчик не достигнет 10 $random = rand; # получаем случайное число if ($random > 0.5) { # числа больше 0.5 next; # ПРОПУСКАЕМ действия в теле цикла } print "\n", $random; # выводим число на консоль $i++; # и увеличиваем счетчик повторений # сюда произойдет переход по next }

Оператор redo используется, когда нужно повторить выполнение предложений в теле цикла без проверки условия в заголовке цикла. Вот таким станет последний пример, если использовать redo:

$i = 0; while ($i < 10) { # пока счетчик не достигнет 10 # сюда произойдет переход по redo $random = rand; # получаем случайное число if ($random > 0.5) { # числа больше 0.5 redo; # СНОВА НАЧИНАЕМ действия в теле цикла } print "\n", $random; # выводим число на консоль $i++; # и увеличиваем счетчик повторений }

Во всех рассмотренных циклах может присутствовать необязательный блок continue. В нем располагаются действия, которые нужно выполнить в конце цикла, в том числе при переходе к новой итерации по next . Действия в блоке continue не выполняются при переходах по last и redo . Это может показаться странным, но голый блок рассматривается в Perl как цикл, выполняющийся один раз. В таком блоке может присутствовать фраза continue и использоваться переходы last , next и redo . С учетом предложений управления циклом и блока continue циклическую структуру в общем виде можно изобразить так:

# может быть заголовок цикла: while, until или for { # сюда происходит переход по redo # действие 1, выполняемое в цикле if (условие выхода) { last; # выход из цикла } # действие 2, выполняемое в цикле if (условие продолжения) { next; # выполнение следующей итерации цикла } # действие 3, выполняемое в цикле if (условие возобновления) { redo; # выполнение тела цикла сначала } # действие N, выполняемое в цикле # сюда происходит переход по next } continue { # действие, выполняемое перед новой итерацией цикла } # сюда происходит переход по last