Perl6 — Работа с функциями

1. Особенности работы с переменными и литералами в Perl6
2. Perl6 — Операции над переменными, анонимные блоки
3. Perl6 — Условные операторы, циклы

Настало время рассмотреть работу с функциями. По этой теме в Perl6 есть несколько изменений относительно пятого, как например именованные параметры, или возможность создания главной функции в скрипте, но начнем по порядку:

В Perl6 функции объявляются конструкцией

sub SubName($a, $r, $g, $s)  {      //SomeWork  }

Имеется возможность указывать типы получаемых параметров

sub SubName(Int $a)  { SomeWork(); } 

однако, в случае если функция будет вызвана с аргументом другого типа, то выполнение скрипта будет остановлено с ошибкой. Так же количество передаваемых аргументов должно совпадать с количеством аргументов при объявлении функции.

Вызов функции происходит с помощью конструкций

f(10, True, "str", {say "closure";}); f 20, False, "aaa", 9.999;

Так же как и в C++ мы можем делать перегрузку функций, однако для каждой функции необходимо будет добавлять слово ‘multi’:

multi sub f(Int $a) {say 'Int';}; multi sub f(Str $a) {say 'Str';}; f("string"); f(100500);

В результате будет выведено на экран:

Str Int

Для указания области видимости функций используются слова my и our — соответственно видимость в той области где функция была объявлена и глобальная область видимости.
Можно указывать тип значения, возвращаемого функцией:

my Int sub func($a)  {return $a+1;}

В случае не совпадения указанного при объявлении типа и типа возвращаемого значения во время работы, скрипт будет остановлен с ошибкой о несоответствии типов.
Параметрам функции можно дополнительно указывать, можно ли изменять эти параметры внутри функции:

sub f($a is rw)  {      $a*=10;  } my $z = 5; f($z); say $z;

В результате будет выведено число 50
Так же в синопсах указано, что функция может возвращать lvalue значение:

my $b = 10; sub f() is rw  {      return $b;  } f() = 5; say $b;

В результате на экране должно будет выведено число 5, однако в последней версии (12.09) возможность исользования lvalue значений ещё не готова, и в моем случае выдавалась ошибка при компиляции.
В Perl6 появилась возможность использования именованных параметров:

my sub func(:$name1, :$name2, :$name3)  {      say $name1, ' ', $name2, ' ', $name3;  } my $a = 10; func :name2<text2>, :name1<1+2+$a>, name3=>$a; my %hash = {name3=>'text3', name2=>'text2', name1=>'text1'}; func |%hash;

В результате на экране будет выведено:

1+2+$a text2 10 text1 text2 text3

Если в качестве параметра передавать не |%hash а просто %hash, то тогда функция будет принимать его как позиционный аргумент — в нашем случае у функции нет позиционных элементов, поэтому работа скрипта будет завершена с ошибкой.
Так же для указания именованного аргумента можно использовать конструкцию :arg($value). Разница между этим вариантом и :arg<$value> в том, что во втором случае значение переменной не будет подставляться, и в итоге в первом случае мы получаем значение переменной $value, а во втором случае получаем строку ‘$value’.
В дополнении можно использовать необязательные параметры:

sub HaveArgument($arg?)  {      if $arg.defined       {           say 'yes';       }      else       {           say 'no';       }  } HaveArgument; HaveArgument 10;

В результате получим строки

no yes

Для создания функций с переменным количеством аргументов, как было в perl5, можно воспользоваться конструкцией:

sub Counter(*@arg)  {      say @arg.elems;  } Counter(1, 2, 3); Counter;

В результате будет выведено два числа: 3 и 0
Перед *@ args можно указывать позиционные элементы:

sub Counter($a, *@arg)  {...}

Функция MAIN:
В Perl6 появилась возможность создания функции MAIN, как на подобии C++, однако, есть несколько отличий. Нарпимер вне тела функции можно делать вызовы других функций, и эти вызовы будут совершены раньше чем начнет выполняться функция MAIN:

sub MAIN()  {      say "MAIN!";      say "Hello!";  }  say "123!";

В результате на экране мы увидим строки

123! MAIN! Hello!

Так же для функции MAIN можно задавать входные параметры, которые будут являться обязательными параметрами при вызове скрипта на исполнение:
Если содержимое скрипта:

sub MAIN($arg1, $arg2)  {      say "MAIN!";      say $arg1, ' ', $arg2;  } say "123!";

И вызвать скрипт без параметров, то в результате мы получим на экране текст:

123! Usage:   /home/warfair/Рабочий стол/script.p6 <arg1> <arg2>

Заметте, что при этом была вызвана функция say «123!», находящийся вне тела какой либо функции, и только после этого, произошла ошибка вызова MAIN.
Ссылку на функцию можно сохранить в переменную с помощью конструкции

sub MySub() {...}; my $var = &MySub;

Можно создавать анонимные функции и сохранять ссылки на них в скалярных переменных

my $r = sub ($a)  {      return $a*2;  } say $r(2); 

В результате мы увидим 4