Оператор next в Perl
Циклы в PerlОператор next в Perl используется для остановки выполнения операторов от оператора, следующего за оператором next, до идентификатора конца тела цикла, затем передаёт управление блоку continue, а затем возвращается к началу тела цикла, чтобы начать следующую итерацию.
Синтаксис
Формат синтаксиса следующий:
next [ LABEL ];
LABEL необязателен. Если LABEL не указан, следующая инструкция вернётся к началу тела цикла и начнёт следующую итерацию.
Пример
#!/usr/bin/perl
$a = 10;
while( $a < 20 ){
if( $a == 15)
{
# Пропустить эту итерацию
$a = $a + 1;
next;
}
print "Значение a равно:$a\n";
$a = $a + 1;
}
Выполнение вышеуказанной программы дает следующий вывод:
a 的值为: 10 a 的值为: 11 a 的值为: 12 a 的值为: 13 a 的值为: 14 a 的值为: 16 a 的值为: 17 a 的值为: 18 a 的值为: 19Другие расширения