9.12. Программа: 1st 347

# сохранять в %stat Да, это действительно хэш объектов sub wanted {

my $sb = stat($ ), » XXX stat или Istaf

return unless $sb,

$time{$name} = $sb->$IDX(), » Косвенный вызов метода $stat{$name} = $sb if $opt l.

» Кэширование преобразований идентификатора пользователя в имя sub user {

my $uid = shift,

$user{$uid} = getpwuid($uid)->naffle »$uid

unless defined $user{$uid} return $user{$uid},

# Кэширование преобразований номера группы в имя sub group {

my $gid = shift,

$group{$gid} = getgrgid($gid)->naffle #$gid

unless defined $group{$gid}, return $group{$gid}

Подпрограммы

Огнем бессмертным 7шполняя смертных... В. Оден, «Три песни ко Дню святой Сесгшии»

Введение

Практика вставки/копирования кода довольно опасна, поэтому в больших программах многократно используемые фрагменты кода часто оформляются в виде подпрограмм. Для нас термины «подпрограмма» (subroutine) и «функция» (function) будут эквивалентными, поскольку в Perl они различаются ничуть не больше, чем в С. Даже объектно-ориентированные методы представляют собой обычные подпрограммы со специальным синтаксисом вызова, описанным в главе 13 «Классы, объекты и связи».

Подпрограмма объявляется с помощью ключевого слова sub. Пример определения простой подпрограммы выглядит так:

sub hello {

$greeted++; # Глобальная переменная

print hi there\n;

Типичный способ вызова этой подпрограммы выглядит следующим образом:

helloO; » Подпрограмма hello вызывается без аргументов/параметров

Перед выполнением программы Perl компилирует ее, поэтому место объявления подпрограммы не имеет значения. Определения не обязаны находиться в одном файле с основной программой. Они могут быть взяты из других файлов с помощью операторов do, require или use (см. главу 12 «Пакеты, библиотеки и модули»), создаваться «на месте» с помощью ключевого слова eval или механизма AUTOLOAD или генерироваться посредством замыканий, используемых в шаблонах функций.

10.1. Доступ к аргументам подпрограммы 349

Если вы знакомы с другими языками программирования, некоторые особенности функций Perl могут показаться странными. В большинстве рецептов этой главы показано, как применять эти особенности в свою пользу.

• Функции Perl не имеют формальных, именованных параметров, но это не всегда плохо (см. рецепты 10.1 и 10.7).

• Все переменные являются глобальными, если обратное не следует из объявления. Дополнительная информация приведена в рецептах 10.1 и 10.7.

• Передача или возвращение нескольких массивов или хэшей обычно приводит к потере ими «индивидуальности». О том, как избежать этого, рассказано в рецептах 10.5, 10.8, 10.9 и 10.11.

• Функция может узнать свой контекст вызова (списковый или скалярный), количество аргументов при вызове и даже имя функции, из которой она была вызвана. О том, как это сделать, рассказано в рецептах 10.4 и 1о.6.

• Используемое в Perl значение undef может использоваться в качестве признака ошибки, поскольку ни одна допустимая строка или число никогда не принимает это значение. В рецепте 10.10 описаны некоторые неочевидные трудности, связанные с undef, которых следует избегать, а в рецепте 10.12 показано, как обрабатываются другие катастрофические случаи.

• В Perl функции обладают рядом интересных возможностей, редко встречающихся в других языках (например, анонимные функции, создание функций «на месте» и их косвенный вызов через указатель на функцию). Эти мистические темы рассматриваются в рецептах 10.14 и 10.16.

При вызове вида $х = &func; функция не получает аргументов, но зато может напрямую обращаться к массиву @ вызывающей стороны! Если убрать ампер-санд и воспользоваться формой f unc() или f unc, создается новый, пустой экземпляр массива @ .

10.1. Доступ к аргументам подпрограммы

Проблема

в своей функции вы хотите использовать аргументы, переданные вызывающей стороной.

Решение

Все значения, переданные функции в качестве аргументов, хранятся в специальном массиве @ . Следовательно, первый аргумент хранится в элементе $ [0], второй - в $ [1] и т. д. Общее число аргументов равно scalar(@ ). Например:

sub hypotenuse {

return sqrt( ($ [0] 2) + ($ [1] 2) );

$diag = hypotenuse(3,4); # $diag = 5