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