$him = whowasiO,

sub whoami { (caller(1))[3] } sub whowasi { (caller(2))[3] )

Аргументы 1 и 2 иснользуются для функций первого и второго уровня вложенности, посколы<у вызов whoami или whowasi будет иметь нулевой уровень.

> Смотри также-

Описание функций wantarray и caller в perlfunc(i); рецепт 10.6.

10.5. Передача массивов и хэшей по ссылке

Проблема

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

array diff( \(aarray1, \(ааггау2 ),

Комментарий

Операции со ссылками рассматриваются в главе 11 «Ссылки и записи». Ниже показана подпрограмма, получающая ссылки на массивы, и вызов, в котором эти ссылки генерируются:

(Эа = (1, 2), * = (5, 8),

(Эс = add vecpair( \(аа, \(аЬ ), print @c\n , 6 10

sub add vecpair { tt Предполагается, что оба вектора

tt имеют одинаковую длину ту ($х, $у) = (а , й Скопировать ссылки на массивы

ту @result,

for (my $1=0, $1 < (а$х $i++) { $result[$i] = $x->[$i] + $y->[$i],

return @result.

10.6. Определение контекста вызова 357

Функция обладает одним потенциальным недостатком; она не проверяет, что ей были переданы в точности два аргумента, являющиеся ссылками на массивы. Проверку можно организовать следующим образом:

unless (@ == 2 && ref($x) eq ARRAY && ref($y) eq ARRAY ) { die usage add vecpair ARRAYREF1 ARRAYREF2 ,

Если вы собираетесь ограничиться вызовом die в случае ошибки (см. рецепт 10.12), проверка обычно пропускается, поскольку при попытке разыменования недопустимой ссылки все равно возникает исключение.

> Смотри также-

Раздел «Pass by Reference»perisw6(l); раздел «Prototypes>>perisM6(l); рецепт 10.11; глава П.

10.6. Определение контекста вызова

Проблема

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

Решение

Воспользуйтесь функцией wantarray(), которая возвращает три разных значения в зависимости от контекста вызова текущей функции:

If (wantarrayO) {

й Списковый контекст

elsif (defined wantarrayO) { fl Скалярный контекст

else {

fl Неопределенный контекст

Комментарий

Многие встроенные функции, вызванные в скалярном контексте, работают совсем не так, как в списковом контексте. Пользовательская функция может узнать контекст своего вызова с помощью значения, возвращаемого встроенной функцией wantarray. Для спискового контекста wantarray возвращает true. Если возвращается ложное, но определенное значение, функция используется в скалярном контексте. Если возвращается undef, от функции вообще не требуется возвращаемого значения.

if (wantarrayO) {

print "In list context\n ;

return @fflany things; } elsif (defined wantarrayO) {

print "In scalar context\n";

return $one thing; } else {

print "In void context\n;

return, # Ничего

mysubO; # Неопределенный контекст

$a = mysubO; fl Скалярный контекст

if (mysubO) { } # Скалярный контекст

@a = mysubO; # Списковый контекст

print mysubO; # Списковый контекст

t> Смотри также-

Описание функций return и wantarray в perlfunc{l).

10.7. Передача именованных параметров

Проблема

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

Решение

Укажите имена параметров при вызове:

thefunc(INCREMENT => "20s", START => +Ьт". FINISH => "+30m");

thefunc(START => +5m", FINISH => "+30m");

thefunc(FINISH => "+30m");

thefunc(START => "+5m", INCREMENT => ISs");

Затем в подпрограмме создайте хэш, содержащий значения по умолчанию и массив пар;

sub thefunc { my %args = (

INCREMENT => lOs, FINISH => 0,

START => 0,

@ , # Список nap аргументов

If (Sargs{INCREMENT} =" /mS/ ) { ... }