Управляющие структуры Perl - Perl control structures

Эта статья не цитировать любой источники. Пожалуйста помоги улучшить эту статью к добавление цитат в надежные источники. Материал, не полученный от источника, может быть оспорен и удаленный. Найдите источники: "Управляющие структуры Perl"  – Новости  · газеты  · книги  · ученый  · JSTOR (Декабрь 2009 г.) (Узнайте, как и когда удалить этот шаблон сообщения)

Основные управляющие структуры Perl похожи на те, которые используются в C и Ява, но они были расширены несколькими способами.

Петли

В следующих, метка - необязательный идентификатор, заканчивающийся двоеточием, и блокировать представляет собой последовательность одного или нескольких операторов Perl, заключенных в фигурные скобки. Все конструкции цикла, кроме C-стиля за-петля может иметь Продолжить блок, который выполняется после каждой итерации тела цикла перед повторной оценкой условия цикла.

метка за ( expr1 ; expr2 ; expr3 ) блокировать

Это так называемый C -стиль за петля. Первое выражение оценивается до первой итерации цикла. Второе выражение оценивается перед каждой итерацией, и цикл завершается, если оно оказывается ложным. Третье выражение оценивается после каждой итерации до принятия решения о выполнении следующей. Этот за loop - единственная конструкция цикла, которая не может иметь Продолжить блок, но expr3 функционально эквивалентен.

метка за вар ( список ) блокироватьметка за вар ( список ) блокировать Продолжить блокироватьметка для каждого вар ( список ) блокироватьметка для каждого вар ( список ) блокировать Продолжить блокировать

В для каждого, вар это скалярная переменная, которая по умолчанию равна $_ если опущено. Для каждого элемента список, вар имеет псевдоним элемента, и тело цикла выполняется один раз. Ключевые слова за и для каждого являются синонимами и всегда взаимозаменяемы.

метка пока ( expr ) блокироватьметка пока ( expr ) блокировать Продолжить блокироватьметка до того как ( expr ) блокироватьметка до того как ( expr ) блокировать Продолжить блокировать

В пока loop повторно выполняет тело цикла, пока управляющее выражение истинно. Условие оценивается перед телом цикла. до того как аналогичен, но выполняет тело цикла, пока условие ложно.

метка блокироватьметка блокировать Продолжить блокировать

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

Ключевые слова контроля цикла

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

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

Условные утверждения

если ( expr ) блокироватьесли ( expr ) блокировать еще блокироватьесли ( expr ) блокировать Эльсиф ( expr  ) блокировать ... еще блокироватьпока не ( expr ) блокироватьпока не ( expr ) блокировать еще блокироватьпока не ( expr ) блокировать Эльсиф ( expr  ) блокировать ... еще блокировать

куда блокировать представляет собой последовательность одного или нескольких операторов Perl, заключенных в фигурные скобки.

Управляющие выражения оцениваются в логический контекст: числовое значение 0, строки «» и «0» и неопределенное значение. undef ложны, все остальные значения верны. Это означает, что строки «0,0», «00», «-0 "и" 0, но истинно "все истинны, даже если их значение будет преобразовано в 0 в числовом контексте; такие значения иногда используются, когда успешная операция должна вернуть 0.

Оценка пустого массива в скалярном контексте дает undef, что неверно. Таким образом, в следующем примере выводится «a is empty»:

мой @a=(); '''пока не''' (@a) { '''Распечатать''' "а пусто" }

Модификаторы утверждения

Perl также предоставляет варианты цикла и условных конструкций, которые работают с простым оператором (выражением, оцениваемым на предмет его побочных эффектов) вместо блока:

утверждение если expr;утверждение пока не expr;утверждение пока expr;утверждение до того как expr;утверждение за список;утверждение для каждого список;

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

делать блокировать пока expr;делать блокировать до того как expr;

В этих конструкциях условие проверяется после выполнения блока, поэтому блок всегда выполняется хотя бы один раз.

Эти модификаторы не могут быть вложенными, поэтому следующее недопустимо

утверждение если выражение за список; #ОШИБКА

и должен быть записан как одно из:

( выражение ) и ( утверждение ) за список;за ( список ) { утверждение если выражение }делать { утверждение если выражение } для каждого список;

идти к

Есть две формы идти к в Perl:

метка goto

и

перейти и подпрограмма

Первая форма обычно не рекомендуется и используется только в редких случаях. Например, при попытке сохранить статус ошибки в $?, некоторые модули будут использовать goto следующим образом:

открыто(А, "<", $ filea) или же идти к провал;открыто(B ,">", $ fileb) или же идти к провал;Распечатать B <A> или же идти к провал;Закрыть А или же идти к провал;Закрыть B или же идти к провал;возвращаться 1;провал: $ причина = "В копии: $?"; возвращаться 0;

Вторая форма называется хвостовой зов, и используется для повышения производительности определенных видов конструкций, в которых управление стеком по умолчанию в Perl будет работать неоптимально. Например:

суб факториал {    мой $ n = сдвиг;    мой всего $ = сдвиг(@_) || 1;    если ($ n > 1) {        @_ = ($ n-1,всего $*$ n);        идти к &факториал;    } еще {        возвращаться всего $;    }}

Эта форма также используется для создания псевдонимов для подпрограмм с минимальными накладными расходами. Это может помочь уменьшить количество ошибок «Недостаточно памяти» (или чрезмерного использования памяти в целом), которые часто возникают при повторении одной и той же подпрограммы.

внешняя ссылка

Программирование на Perl / управление потоком в Викиучебнике