Операторы цикла

Циклы while и until

[МЕТКА] while (ВЫРАЖЕНИЕ) БЛОК
[МЕТКА] while (ВЫРАЖЕНИЕ) БЛОК continue БЛОК1

1. Вычисляется выражение-условие ВЫРАЖЕНИЕ.
2. Если оно истинно, то выполняются операторы блока БЛОК и осуществляется возврат к пункту 1.
3. Если выражение-условие ложно, то оператор цикла завершает свою работу и передает управление следующему после него оператору программы.

#!perl
use warnings;
# цикл 1 - изменение условия в теле цикла
$i = 1;
while ($i <= 3) {
  $а[$i] = sqrt $i:
  ++$i; # Изменение переменной из условия цикла
}
# цикл 2 - цикл until,  эквивалентный циклу 1
$i = 1;
until ($i > 3) {
  $a[$i] = sqrt $i;
  ++$i; # Изменение переменной из условия цикла
}
# цикл 3 - изменение условия в самой выражении -условии
# (завершается нажатием <Ctrl>+<C>).
while ($i = <>) {
  $a .= $i
}
# цикл 4 - тело цикла не выполняется ни одного раза 
$i = 5;
while ($i <= 3) {
  $a[$i] = 1/$i;
  ++$i;
}
#цикл 5 - бесконечный цикл (не изменяется условие)
$i=1;
while ($i <= 3) {
  $a[$i] = 1/$i;
}

ПРИМЕЧАНИЕ В языке нет специальной формы цикла с постусловием. Однако, как отмечалось ранее при рассмотрении модификаторов простых операторов, его легко реализовать с помощью модификатора while, примененного к конструкции do{}.

#! perl -w
# Вычисление степеней числа 2 
$i = 1;
while ($i <= 16) {
  print "2 в степени $i: ", 2**$i, "\n"; 
} continue { 
    ++$i;  # Переменная $i всегда увеличивается
           # перед выполнением следующей итерации 
}

#!perl -w
$line = "end in main";
# Функцию my можно заменить на local 
while ((my $line = <>) !~ /^end$/i) {
  $line = lc $line;
} continue { 
    print $line;
}
# Напечатает "After while: end in main"
print "After while: $line\n";

ВНИМАНИЕ Объявление локальных переменных, доступных как в теле цикла, так и в блоке continue, возможно только и выражении-условии. Синтаксически допустимо объявлять локальные переменные в блоке самого цикла или блоке continue, но это приводит к тому, что такие переменные видны только в тех блоках, где они созданы. Объявление в выражении-условии или блоках нелокальных переменных приводит к их глобальному использованию.

Цикл for

[МЕТКА] for (ВЫРАЖЕНИЕ1; ВЫРАЖЕНИЕ2; ВЫРАЖЕНИЕ3) БЛОК

1. Вычисляется инициализирующее выражение ВЫРАЖЕНИЕ1.
2. Вычисляется выражение-условие ВЫРАЖЕНИЕ 2. Если оно истинно, то выполняются операторы блока БЛОК, иначе цикл завершает свое выполнение.
3. После выполнения очередной итерации вычисляется выражение увеличения/уменьшения (ВЫРАЖЕНИЕ З) и повторяется пункт 2.

for ($i = 1; $i <= 10; $i++) {
  . . .
}

$i = 1;
while ($i <= 10) {
  . . .
} continue {
    $i++;
}

$line = "end in main";
for(my $line = 1; $line <=3; $line++) { 
  print "$line\n" ;
}
# Напечатает "After for: end in main"
print "After for: $line\n";

ВНИМАНИЕ. Цикл for не позволяет создавать локальные динамические переменные функцией local( ).

for (;;)  {
  # операторы этого блока будут выполняться бесконечно!
}

$i=1;
for (; $i <= 3 ;) {
  . . .
  $i++;
}

СОВЕТ Хотя существует возможность изменения переменной цикла в теле цикла, не рекомендуется ею пользоваться. Цикл for был введен в язык именно для того, чтобы собрать в одном месте все операторы, управляющие работой цикла, что позволяет достаточно быстро изменить его поведение.

for ($j = 1, $k = 9; $k>0; $j++, $k--) {
  $hash{$j} = $k;
}

#!реrl -w
for (print "Введите данные, завершение ввода <Enter>\n"; 
     mу $line = <>;
     print "Введите данные, завершение ввода <Enter>\n")
{
  last if $line eq "\n"; 
  print "Ввели строку: $line"; 
}

Цикл foreach

[МЕТКА] foreach ПЕРЕМЕННАЯ (СПИСОК) БЛОК
[МЕТКА] foreach ПЕРЕМЕННАЯ (СПИСОК) БЛОК continue БЛОК

ВНИМАНИЕ Задается лив цикле foreach параметр СПИСОК явно, как последовательность разделенных запятой значений, или неявно, как массив или обращение к функции, — в любом случае этот параметр цикла должен быть заключен в круглые скобки.

#! perl -w
@array = (1,-6,9,18,0,-10);
@max = $array[0]; 
foreach $temp (@array) {
  $max = $temp if $temp > $max; 
} 
print "$max";

for $temp (@array) ( # Ключевое слово foreach синоним for. 
  $max = $temp if $temp > $max;
}

foreach (@аrrау) {  # В качестве переменной цикла
                    # используется $_.
  $max = $_ if  $_ > $max;
}

foreach (@аrrау) {
  $_ **= 2; 
}

#! perl -w 
%array = (
  blue   => 1,
  red    => 2,
  green  => 3,
  yellow => 3
); 
foreach (sort keys %array) {
  print "$_\t => $array{$_}\n"; 
}

blue   => 1
green  => 3
red    => 2
yellow => 3

ВНИМАНИЕ Цикл foreach, примененный к массиву, выполняется быстрее аналогичного цикла for, так как не требует дополнительных затрат на вычисление индекса элемента списка.

ВНИМАНИЕ Все рассмотренные нами операторы цикла могут быть вложенными друг в друга. Основное требование – вложенный оператор цикла должен завершаться в теле цикла, в котором он вложен.

Следующая страница

Содержание главы