Подпрограммы

Подпрограммой (процедурой) называется кусок программного кода, созданный для реализации конкретной задачи. Они дают возможность избегать повторного набора одних и тех же операторов. Вот к примеру:

 $i = 5+6;
 print "Результат $i
";
 $i = 10+3;
 print "Результат $i
 ";
 $i = 6+1;
 print "Результат $i
 ";

 Результат 11 
 Результат 13 
 Результат 7

Её можно уменьшить, применяя подпрограммы, но для начала посмотрим, как они определяются.

Синтаксис:

 sub имя_подрограммы() #Если вашей подпрограмме не передаются параметры.
 { --БЛОК-- };
 sub имя_подрограммы(тип переменных)
 { --БЛОК-- };

Одним важным примечанием является то, что вы можете определять подпрограммы перед главной программой, но вы можете писать процедуры и после программы предварительно указав вначале её описание, то есть тоже самое, но без 'блока'.

Пример:

 sub AddingProc ( $$)
 { 
   $i = $_[1] + $_[0];
   print " Результат $i 
 "	
 };
AddingProc(5,6);
AddingProc(10,3);
AddingProc(1,6);

• @ - массив
• $@ - скаляр, массив;
• @$% - массив, скаляр, хеш

 sub TestProc( @$ )
 { print $_[3]; }
 TestProc(("Test","Hello", "simply"),"scalar ");

	scalar

Ну здесь всё понятно, но если мы заделаем так:

 sub TestProc( @$ )
 { print $_[3]; }
 TestProc(("Test","Hello", "simply","array"),"scalar ");

Можно так же передавать параметры через переменные, так как переменные описанные в главной программе считаются локальными, то есть значение этой переменной распространяется на все используемые подпрограммы. Так же предусмотрено использование не локальных, а переменных доступных только внутри блока. Это можно устроить с помощью функции my(список переменных), обратите внимание на то, что если у вас существуют локальные переменные с такими же именами, то они будут игнорироваться.

Приведем такой пример:

 sub TestProc()
 {
   my($var); 
   print "$var";
 } 
$var = 10;
TestProc();