|
В перед началом цикла выполняется
EXPR1, если
EXPR2=
trueвыполняется блок, затем выполняется
EXPR3.
Пример:
for ($i = 2; $i < 5; ++$i)
{
print $i, " ";
}
print «\nПосле цикла i = $i\n»;
Результат:
2 3 4
После цикла i = 5
Цикл
foreach.
LABEL foreach
VAR(LIST) BLOCK
Переменной
VARприсваивается поочередно каждый элемент списка
LISTи выполняется блок. Если
VARопущенно то элементы присваиваются встроеной переменной
$_. Если в теле блока изменять значение
VARто это вызовет изменение и элементов списка т.к.
VARфактически указывает на текущий элемент списка.
Вместо слова
foreachможно писать просто
for– это слова синонимы.
Пример:
@месяц = («январь»,"февраль","март"); # Создали массив
foreach $i (@месяц)
{
print $i," "; # Печать $i
}
Результат: январь февраль март
Пример:
@месяц = («январь»,"февраль","март"); # Создали массив
foreach $i (@месяц)
{
$i = uc($i); # Перевели в верхний регистр
}
print @месяц;
Результат: ЯНВАРЬФЕВРАЛЬМАРТ
Пример:
for $i (3,5,7)
{
print "$i ";
}
Результат: 3 5 7
Блоки и оператор
switch.
Блок не зависимо от того имеет он метку или нет семантически представляет собой цикл который выполняется один раз. Поэтому действие опраторов цикла
next,
last,
redo– аналогично описанному выше. Блоки удобны для построения
switch(переключатель) структур.
В Перл нет специального оператора switch подобного языку С поэтому вы сами можете создавать удобные для вас конструкции.
Опыт автора показывает что для простоты написания лучше всего подходит конструкция вида
if ... elsif ... else ...хотя можно сочинить и нечто подобное:
SWITCH:
{
if ($i ==1 ) { .....; last SWITCH; }
if ($i ==2 ) { .....; last SWITCH; }
if ($i ==3 ) { .....; last SWITCH; }
$default = 13;
}
Выбирайте сами по своему вкусу.
Оператор
goto.
В Перл существует оператор
gotoхотя где , как и когда его применять как говорил Ходжа Насредин «Тонкий филосовский вопрос».
Для начинающих программистов которым от так «нужен» я бы вообще посоветовал «забыть» о его существовании.
|
