Оператор перехода в Perl

Автор：Eve Cole Время обновления：2025-01-03 10:48:01

В Perl есть три формы перехода: got LABLE, goto EXPR и goto &NAME:

серийный номер	перейти к типу
1	перейти к LABEL Найдите оператор с пометкой LABEL и повторите его оттуда.
2	перейти к EXPR Форма goto EXPR — это лишь общая форма goto LABEL. Он ожидает, что выражение сгенерирует имя тега, и переходит к этому тегу для выполнения.
3	перейти&ИМЯ Он заменяет запущенный дочерний процесс вызовом именованного дочернего процесса.

грамматика

Формат синтаксиса следующий:

 перейти к LABEL или перейти к EXPR или перейти к &NAME

блок-схема

Пример

Следующие два примера выводятся из вывода, когда переменная $a равна 15.

Ниже приведен часто используемый пример перехода:

Пример

#/usr/bin/perl $а = 10 ; ЦИКЛ : делать { если ( $а == 15 ) { # Пропустить итерацию $a = $a + 1 ; # Используйте форму перехода к LABEL распечатать " Выйти из вывода n " ; ПЕТЛЯ ; печать " Это предложение не будет выполнено n " } ; распечатать " а = $ а n " ; $а = $а + 1 } пока ( $а < 20 ) ;

Выполняя вышеуказанную программу, результат вывода:

 а=10а=11а=12а=13а=14 выскочит из выхода а=16а=17а=18а=19

В следующих примерах используется форма goto EXPR. Мы использовали две строки и связали их точкой (.).

Пример

$a = 10 ; $ str1 = « ЛО » ; $ str2 = « ОП » : делать { если ( $а == 15 ) { # Пропустить итерацию $a = $a + 1 ; # Используйте форму перехода к EXPR перейти к $str1 . $str2 # Аналогично переходу к LOOP } распечатать " а = $а n " ; $а = $ а + 1 } пока ( $а < 20 ) ;

Выполняя вышеуказанную программу, результат вывода:

 а = 10а = 11а = 12а = 13а = 14а = 16а = 17а = 18а = 19