nota XIII. Субрутина

Как же теперь работают подпрограммы (процедуры, функции) в 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

sub, процедуры charta situs nota XII << >> nota XIV