10.8. Пропуск некоторых возвращаемых значений 359

Комментарий

Функции, аргументы которых должны следовать в определенном порядке, удобны для небольших списков аргументов. Но с ростом количества аргументов становится труднее делать некоторые из них необязательными или присваивать им значения по умолчанию. Пропускать можно только аргументы, находяшиеся в конце списка, и никогда - в начале.

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

Решение построено на объявлении в функции закрытого хэша, хранящего значения параметров по умолчанию. В конец хэша заносится массив текущих аргументов, @ - значения по умолчанию заменяются фактическими значениями аргументов.

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

Глава 4 «Массивы».

10.8. Пропуск некоторых возвращаемых значений

Проблема

Имеется функция, которая возвращает много значений, однако вас интересуют лишь некоторые из них. Классический пример - функция stat; как правило, требуется лишь одно значение из длинного возвращаемого списка (например, режим доступа).

Решение

Присвойте результат вызова списку, некоторые позиции которого равны undef: ($а, undef, $с) = func(),

Либо создайте срез списка возвращаемых значений и отберите лишь то, что вас интересует:

($а, $с) = (func())[0,2].

Комментарий

Применять фиктивные временные переменные слишком расточительно: ($dev,$ino,$DUMMY,$DUMMY,$uid) = stat($filename);

Чтобы отбросить ненужное значение, достаточно заменить фиктивные переменные на undef:

($dev,$ino undef,undef $uid) = stat($filename)

Также можно создать срез и включить в него лишь интересующие вас значения;

($dev,$ino,$uid,$gid) = (stat($filename))[0,1 4,5],

Если вы хотите перевести результат вызова функции в списковый контекст и отбросить все возвращаемые значения (вызывая его ради побочных эффектов), начиная с версии 5.004, можно присвоить его пустому списку;

О = some function()

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

Описание срезов в perlsub(iy, рецепт 3.1.

10.9. Возврат нескольких массивов или хэшей

Проблема

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

Решение

Возвращайте ссылки на хэши или массивы:

($array ref, $hash ref) = somefunc(),

sub somefunc { my (giarray, my %hash,

«

return ( \(aarray \%hash )

Комментарий

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

sub fn {

return (\%а, \%b, \%с), й или

10.10. Возвращение признака неудачного вызова 361

return \(%а, %Ь, %с) # то же самое

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

(%hO, %h1, %h2) = fn(), « HEBEPHOi

(aarray of hashes = fn() fl например $array of hashes[2]->{ keystring } ($rO, $r1, $r2} = fn() # например $г2->{ keystnng }

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

Общие сведения о ссылках в главе И; рецепт 10.5.

10.10. Возвращение признака неудачного вызова

Проблема

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

Решение

Воспользуйтесь командой return без аргументов, которая в скалярном контексте возвращает undef, а в списковом - пустой список ().

Комментарий

return без аргументов означает следующее;

sub enpty retval {

return ( wantarray > () undef )

Ограничиться простым return undef нельзя, поскольку в списковом контексте вы получите список из одного элемента: undef. Если функция вызывается в виде:

If ((Эа = yourfuncO) { }

то признак ошибки будет равен true, поскольку @а присваивается список (undef), интерпретируемый в скалярном контексте. Результат будет равен 1 (количество элементов в @а), то есть истинному значению. Контекст вызова можно определить с помощью функции wantarray, однако return без аргументов обеспечивает более наглядное и изящное решение, которое работает в любых ситуациях:

unless ($а = sfunc()) { die sfunc failed } unless ((Эа = afunc()) { die afunc failed } unless (%a = hfuncO) { die hfunc failed )

Некоторые встроенные функции Perl иногда возвращают довольно странные значения. Например, fcntl и ioctl в некоторых ситуациях возвращают строку