Оператор continue в Perl
Циклы PerlБлок continue в Perl обычно выполняется перед повторным вычислением условия.
Оператор continue можно использовать в циклах while и foreach.
Синтаксис
Синтаксис оператора continue в цикле while выглядит следующим образом:
while(condition){
statement(s);
}continue{
statement(s);
}
Синтаксис оператора continue в цикле foreach выглядит следующим образом:
foreach $a (@listA){
statement(s);
}continue{
statement(s);
}
Пример
Использование оператора continue в цикле while:
Пример
#/usr/bin/perl
$a = 0;
while($a < 3){
print "a = $a\n";
}continue{
$a = $a + 1;
}
Вывод вышеприведённой программы:
a = 0 a = 1 a = 2
Использование оператора continue в цикле foreach:
Пример
#/usr/bin/perl
@list = (1, 2, 3, 4, 5);
foreach $a (@list){
print "a = $a\n";
}continue{
last if $a == 4;
}
Вывод вышеприведённой программы:
a = 1 a = 2 a = 3 a = 4Другие расширения