Программа на PERL

• Декларации (объявления)
• Простое предложение
• Сложные предложения
• Циклы
  • while
  • Операторы управления циклом
    • next
    • last
    • redo
  • for
  • foreach
• Блоки и оператор switch
• Оператор goto
• POD операторы. Документирование программ

sub test;# Декларация подпрограммы test  $var1 = test $0; # Использование как оператора списка.  

Декларации подпрограмм могут быть загружены из отдельного файла предложением require или загружены и импортированы в текущую область имен предложением use. Подробно см. главу 10 Модули.

Простое предложение.

Простое предложение обязательно заканчивается символом ';' если только это не последнее предложение в блоке где ';' можно опустить. Заметьте, что существуют операторы такие как eval{} и do{}, которые выглядят как сложные предложения, но на самом деле это термы и требуют обязательного указания конца предложения. Любое простое предложение может содержать single модификатор перед ';'. Существуют следующие single модификаторы:

if EXPR  unless EXPR  while EXPR  until EXPR  

$var = 1;  $var2 = 3 if $var > 0; # Результат: $var2 = 3  

$var = 1;  print $var++ while $var < 5; # Печать $var с инкрементом  

$var = 1;  print $var++ until $var > 5; # Печать $var с инкрементом  

$var = 1;  print $var++ unless $var > 5; # Печать $var с инкрементом  

Результат: 1

Сложные предложения.

Последовательность простых предложений, ограниченная функциональными ограничителями, называется блоком. В Perl это может быть целый файл, последовательность предложений в операторе eval{} или чаще всего это множество простых предложений, ограниченных круглыми скобками '{}'. Существуют следующие виды сложных предложений:

if (EXPR) BLOCK
if (EXPR) BLOCK else BLOCK
if (EXPR) BLOCK elsif (EXPR) BLOCK ... else BLOCK
LABEL while (EXPR) BLOCK
LABEL while (EXPR) BLOCK continue BLOCK
LABEL for (EXPR; EXPR; EXPR) BLOCK
LABEL foreach VAR (LIST) BLOCK
LABEL BLOCK continue BLOCK

$var =1;  if ($var == 1)  { print $var,"\n";  }  

$var =2;  if ($var == 1)  { print "\$var = 1\n";  }  else  { print "\$var не равно 1\n";  }  

$var = 1;  if ($var == 0)  { print "\$var = 0\n";  }  elsif ($var == 1)  { print "\$var = 1\n";  }  else  { print "Не известное \$var\n";  }  

Результат: $var = 1

Цикл While

Цикл while выполняет BLOCK до тех пор пока EXPR = true. Метка LABEL не обязательна и состоит из идентификатора, завершающегося символом ':'. Метка необходима при использовании внутри блока цикла управляющих операторов next, last и redo. Если метка все же отсутствует, то эти операторы ссылаются к началу ближайшего цикла. Блок после continue выполняется всегда перед тем как вычисляется логическое выражение EXPR. Это подобно EXPR3 в предложении for, поэтому в этом блоке удобно изменять счетчики и флаги цикла даже если применяется оператор next.

Операторы управления циклом.

next- подобен continue в С. Переходит к началу текущего цикла т.е. повторяет итерацию.

Пример:

M1:  while ($i < 6)  {  ++$i;# Увеличиваем счетчик на 1  next M1 if $i < 3; # Переходим в начало если $i < 3  ++$i;# иначе увеличиваем счетчик еще раз на 1  }  Continue  {  print "$i "; # Печатаем $i  }  

M1:  while ($i < 6)  {  ++$i; # Увеличиваем счетчик на 1  last M1 if $i > 3; # Выход из цикла если $i > 3  ++$i; # иначе увеличиваем счетчик еще раз на 1  }  continue {  print "$i "; # Печатаем $i  }  

M1:  while ($i < 6)  {  ++$i; # Увеличиваем счетчик на 1  redo M1 if $i == 3; # Далее пропустить для $i = 3  ++$i; # иначе увеличиваем счетчик еще раз на 1  }  continue {  print "$i "; # Печатаем $i  }  

Результат: 2 5 7

Цикл for.

LABEL for (EXPR1; EXPR2; EXPR3) BLOCK
Оператор for полностью аналогичен оператору for в С. В перед началом цикла выполняется 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 (переключатель) структур. В Perl нет специального оператора switch подобного языку С поэтому вы сами можете создавать удобные для вас конструкции. Опыт автора показывает что для простоты написания лучше всего подходит конструкция вида if ... elsif ... else ... хотя можно сочинить и нечто подобное:

SWITCH:  {  if ($i ==1 ) { .....; last SWITCH; }  if ($i ==2 ) { .....; last SWITCH; }  if ($i ==3 ) { .....; last SWITCH; }  $default = 13;  }  

Выбирайте сами по своему вкусу.

Оператор goto.

В Perl существует оператор goto хотя где , как и когда его применять как говорил Ходжа Насреддин "Тонкий философский вопрос". Для начинающих программистов которым от так "нужен" я бы вообще посоветовал "забыть" о его существовании. Однако при создании больших производственных задач на последнем этапе особенно при отработке "отвальных" ошибочных ситуаций конечно goto нужен. В Perl реализовано три формы goto. goto - метка, goto - выражение и goto - подпрограмма.

goto ("M1", "M2", "M3")[$i];  

POD операторы. Документирование программ.

В Perl реализован очень удобный механизм для написания документации в момент создания программы. Для этого применяются специальные POD операторы. Если в теле программы интерпретатор встречает оператор начинающийся с символа '=' например:

= head Набор стандартных процедур