
процедуры
Как же теперь работают подпрограммы (процедуры, функции) в perl 6? А субрутины работают так.
| | #!/usr/bin/perl6
yellow;
sub yellow {
"We all live in yellow subroutine".say;
} | | We all live in yellow subroutine |
Bene. Пока ничего неожиданного. А если вызвать субрутину с переменной?| | #!/usr/bin/perl6
yellow('small');
sub yellow($epit) {
# my $epit=shift; # теперь так не получается
"We all live in $epit yellow subroutine".say;
} | | We all live in small yellow subroutine |
Сразу после названия субрутины в скобках мы определяем переменные, которыми "валентна" данная субрутина. Можно определить несколько входных переменных.| | #!/usr/bin/perl6
yellow('small','sleep');
sub yellow($epit,$act) {
"We all live and $act in $epit yellow subroutine".say;
} | | We all live and sleep in small yellow subroutine |
Определение входных переменных довольно гибко, там много разных хитростей. Будем пробовать их потом. # mutatio postrema: 14 Aug 2010
|