Глава 4. Управляющие структуры

• Блоки операторов
• Оператор if/unless
• Оператор while/until
• Оператор for
• Оператор foreach
• Упражнения

Блоки операторов

{
  первыи_оператор;
  второй_оператор;
  третий_оператор;
  ...
  последний_оператор;
}

if ($ready) { $hungry++ } 
if ($tired) 
{ 
  $sleepy = ($hungry + 1) * 2;
}

Оператор if/unless

if (выражение) 
{
  оператор_1;
  оператор_2;
  оператор_3;
}
else
{
  оператор_1;
  оператор_2;
  оператор_3;
}

0        # преобразуется в "0", поэтому "ложь"
1-1      # дает в результате 0, затем 
         # преобразуется в "0", поэтому "ложь"
1        # преобразуется в "1", поэтому "истина"
""       # пустая строка, поэтому "ложь"
"1"      # не "" или "0", поэтому "истина"
"00"     # то-же, но будьте внимательны!!!
"0.000"  # то-же, но будьте внимательны!!!
undef    # дает в результате "", поэтому "ложь"

print "how old are you?";
$a = <STDIN>;
chomp($a);
if ($a < 18)
{
  print "So, you're not old enough to vote, eh?\n";
}
else
{
  print "Old enough! Cool! So go vote!\n";
  $voter++; # count the voters for later
}

print "how old are you?";
$a = <STDIN>;
chomp($a);
if ($a < 18)
{
  print "So, you're not old enough to vote, eh?\n";
}

print "how old are you?";
$a = <STDIN>;
chomp($a);
unless ($a < 18)
{
  print "Old enough! Cool! So go vote!\n";
  $voter++; # count the voters for later
}

if (выражение один) 
{
  оператор_1_при_истине_один;
  ...
  оператор_n_при_истине_один;
}
elsif (выражение_два)
{
  оператор_1_при_истине_два;
  ...
  оператор_n_при_истине_два;
}
elsif (варажение_три)
{
  оператор_1_при_истине_три;
  ...
  оператор_n_при_истине_три;
}
else
{ 
  оператор_1_при_всеи_ложных;
  оператор_n_при_всех_ложных;
}

Оператор while/until

while (выражение)
{
  оператор_1;
  ...
  оператор_n;
}

print "how old are you?";
$a = <STDIN>;
chomp($a);
while ($a > 0)
{
  print "At one time, you were $a years old.\n";
  $a --;
}

until (выражение)
{
  оператор_1;
  ...
  оператор_n;
}

Оператор do {} while/until

do
{
  оператор_1;
  ...
  оператор_n;
}
while (выражение);

$stops = 0;
do
{
  $stops++;
  print "Next stop?";
  chomp($location = <STDIN>);
}
until ($stops > 5) || ($location eq 'home');

Оператор for

for (начальное_выражение; проверочное_выражение; возобновляющее_выражение)
{
  оператор_1;
  ...
  оператор_n;
}

начальное выражение;
while (проверочное выражение)
{
  оператор_1;
  ...
  оператор_n;
  возобяовляющее_выражение;
}

for ($i=1; $i<-10; $i++)
{
  print "$i ";
)

Оператор foreach

foreach $i (@список) 
{
  оператор_1;
  ...
  оператор_n;
}

@а = (1,2,3,4,5);
foreach $b (reverse @a)
{
  print $b;
}

@а = (1,2,3,4,5);
foreach (reverse @a)
{
  print;
}

@а = (3,5,7,9);
foreach $one (@a) 
{
  $one *= 3;
}
# @а теперь равно (9,15,21,27)

Упражнения

1. Напишите программу, которая запрашивает температуру окружающего воздуха и выводит на экран слова "too hot", если температура выше 72 градусов (по Фаренгейту), а в противном случае выводит "too cold".
   
2. Модифицируйте программу из предыдущего упражнения так, чтобы она выводила на экран "too hot", если температура выше 75 градусов, "too cold" при температуре ниже 68 градусов и "just right!" при температуре от 68 до 75 градусов.
   
3. Напишите программу, которая читает список чисел (каждое из которых записано в отдельной строке), пока не будет прочитано число 999, после чего программа выводит сумму всех этих чисел. (Ни в коем случае не прибавляйте 999!) Например, если вы вводите 1, 2, 3 и 999, программа должна ответить цифрой 6 (1 + 2 + 3).
   
4. Напишите программу, которая читает список строковых значений (каждое из которых занимает отдельную строку) и выводит его на экран в обратном порядке, причем без проведения над списком операции reverse. (Вспомните, что <STDIN> при использовании в списочном контексте читает список строковых значений, каждое из которых занимает отдельную строку.)
   
5. Напишите программу, которая выводит на экран таблицу чисел от 0 до 32 и их квадратов. Попробуйте предложить способ, при котором список не обязательно должен содержать все указанные числа, а затем способ, при котором их нужно задавать все. (Чтобы выводимый результат выглядел более привлекательно, используйте функцию printf "%5g %8g\n", $а, $b; которая выводит $а как пятизначное число, а $b — как восьмизначное.
   

Примечания