Михаил Шохирев - Язык программирования Perl
Но это считается дурным тоном. Да и разобраться в подобной программе будет очень сложно даже ее автору, особенно если она большого размера и прошло некоторое время после ее написания!
Простые предложения, составленные из выражений, выполняются одно за другим, образуя простую последовательность действий. Последовательность может помещаться в блок - одно или несколько предложений, обрамленных фигурными скобками, которые рассматриваются как единое целое. Блоки применяются для группировки программных конструкций, а также для задания области видимости переменных. Точка с запятой может не ставиться в конце последнего предложения в блоке (как это делается в языке Pascal), но лучше ее ставить всегда, на случай, если позднее добавится еще одно предложение. Блок предложений может быть частью управляющей конструкции, такой как цикл или условный оператор. А блок, который не входит ни в одну управляющую конструкцию, называется голым блоком (bare block).
{ # начало блока # последовательность предложений, # образующих тело блока } # конец блока
Кроме последовательности, в Perl имеются составные предложения, состоящие из выражений и блоков. Составные предложения записываются с помощью ключевых слов (keywords) - специальных слов языка, которые крайне не рекомендуется (а в других языках просто запрещено) применять в качестве имен переменных или подпрограмм. Составные предложения часто называют управляющими структурами, поскольку они предназначены для управления порядком выполнения действий в программе, организуя, например, ветвления и циклы.
Как известно, условные предложения определяют выполнение тех или иных действий в программе в зависимости от проверки заданного условия. В Perl условная конструкция (или оператор if), проверяющая истинность одного условия, в самом простом виде записывается так:
if (условие) { # проверка истинности условия # действия, выполняемые, # если условие истинно } # продолжение программы
Обратите внимание, что после условного выражения, обязательно заключенного в круглые скобки, непременно должен стоять блок. Например, так можно вывести на печать значение переменной при условии, что оно - нечетное:
if ($count % 2 == 1) { # остаток от деления на 2 равен 1 print $count; }
Другая общеизвестная форма условного предложения содержит блок, выполняемый при ложном условии, а именно:
if (условие) { # проверка истинности условия # действия, выполняемые, # если условие истинно } else { # действия, выполняемые в противном случае # (если условие ложно) } # продолжение программы
В Perl имеется еще одна форма условного предложения, которая задает последовательную проверку нескольких условий, указанных в фразе if или elsif. Она выглядит следующим образом:
if (условие 1) { # проверка истинности 1-го условия # действия, выполняемые, # если условие 1 истинно} elsif (условие 2) { # проверка истинности 2-го условия # действия, выполняемые, # если условие 2 истинно # ... здесь могут быть еще фразы elsif ... elsif (условие N) { # проверка истинности N-го условия # действия, выполняемые, # если условие N истинно } else { # действия, выполняемые, # если все условия ложны } # продолжение программы
При этом выполнится один из блоков действий: соответствующий первому истинному условию или указанный за фразой else. Фраза else может отсутствовать, тогда при всех ложных условиях не делается ничего. Форма условного предложения с elsif заменяет отсутствующий в Perl оператор выбора (такой как do-case или switch).
Иногда требуется подчеркнуть, что, наоборот, ложность условия становится причиной выполнения каких-либо действий. Для этого в Perl есть еще одна разновидность условного предложения, которая записывается с помощью ключевого слова unless:
unless (условие) { # проверка ложности условия # действия, выполняемые, # если условие ложно } else { # действия, выполняемые # в противном случае } # продолжение программы
Здесь фраза else также может отсутствовать, если при истинности условия не требуется выполнять никаких действий.
Как уже известно из предыдущей лекции, выражать условное выполнение действия можно и другим, очень популярным в 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
