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

Рецепт 7.14; страница руководства ioctl{2) вашей системы; описание функции ioctl вperlfunc(i).

7.16. Хранение файловых манипуляторов в переменных

Проблема

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

Решение

Если у вас уже имеется символьный файловый манипулятор (например, STDIN или LOGFILE), воспользуйтесь записью тип-глоба, «РН. Такой подход является самым эффективным.

$variable = *FILEHANDLE, # Сохранить в переменной

subroutine(FILEHANDLE); # или передать функции

sub subroutine { my $fh = shift;

print $fh "НеИо, filehandle\n";

Если вы хотите работать с анонимным файловым манипулятором, воспользуйтесь функцией return fh (см. ниже) или новыми методами модулей IO::File или IO::Handle, сохраните его в скалярной переменной и используйте так, словно это обычный файловый манипулятор:

use FileHandle; # Анонимные манипуляторы $fh = FileHandle->new();

use IO::File; # 5.004 и выше $fh = 10::File->new();

Комментарий

Существует немало способов передать файловый манипулятор функции или сохранить его в структуре данных. Самое простое и быстрое решение заключается в применении тип-глоба, *FH. Рассматривайте запись *FH как обозначение типа файлового манипулятора, подобно тому, как представляли молекулы на уроках химии в виде цветных шариков - не совсем точно, зато удобно.

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

7.16. Хранение файловых манипуляторов в переменных 273

Когда вы начнете понимать недостатки этой модели, она вам уже не понадобится.

Конечно, в простых ситуациях этого вполне достаточно, но что если вам потребовался массив файловых манипуляторов с неизвестными именами? Как показано в главе 11 «Ссылки и записи», построение анонимных массивов, хэшей и даже функций во время выполнения программы оказывается исключительно удобным приемом. Нам хотелось бы иметь аналогичную возможность и для файловых манипуляторов. На помощь приходят модули Ю.

Метод new модуля IO::Handle или IO::File генерирует анонимный файловый манипулятор. Его можно передать функции, сохранить в массиве и вообще применять везде, где используются именованные тип-глобы файловых манипуляторов - и не только. Эти модули также могут использоваться в иерархии наследования, поскольку конструктор new возвращает полноценные объекты, для которых могут вызываться методы.

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

Чтобы получить тип-глоб из именованного файлового манипулятора, снабдите его префиксом *:

$fh a = 10::File->new("< /etc/motd") or die "open /etc/motd: $!"; $fh b = .STDIN, some sub($fh a, $fh b);

Существуют и другие способы, но этот проще и удобнее всех остальных. Единственное ограничение - в том, что его нельзя превратить в объект вызовом bless. Bless вызывается для ссылки на тип-глоб - именно это и происходит в IO::Handle. Ссылки на тип-глоб, как и сами тип-глобы, можно косвенно использовать в качестве файловых манипуляторов, с приведением посредством bless или без него.

Создание и возврат нового файлового манипулятора из функции происходит следующим образом:

sub return fh { # Создание анонимных файловых манипуляторов

local «РН; # Должны быть local, не ту

# now open It if you want to, then... return *FH;

Shandle = return fh();

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

sub accept fh { my $fh = shift;

print $fh "Sending to indirect filehandle\n";

либо локализовать тип-глоб и использовать файловый манипулятор напрямую:

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

Рецепт 7 1, документация по стандартному модулю FileHandle, описание функции open в perlfuncii)

sub accept fh {

local «РН = shift,

print FH Sending to localized filehandle\n

Оба варианта работают как с объектами lOrHandle, так и с тип-глобами и настоящими файловыми манипуляторами

accept fh(.STDOUT) accept fh($handle)

Perl позволяет использовать строки, тип-глобы и ссылки на тип-глобы в качестве косвенных файловых манипуляторов, но без передачи тип-глобов или объектов Ю Handle можно нарваться на неприятности Применение строк ( LOGFILE вместо .LOGFILE) между пакетами потребует специальных усилий, а функции не могут возвращать ссылки на тип-глобы

В предыдущих примерах файловый манипулятор перед использованием присваивался скалярной переменной Дело в том, что во встроенных функциях (print или printf) или в операторе о мог}т использоваться только простые скалярные неременные, но не выражения или элементы хэщей и массивов Следующие строки даже не пройдут компиляцию

(ffifd = (.STDIN .STDOUT .STDERR)

print $fd[1] Type It # НЕВЕРНО

$got = <$fd[0]> # НЕВЕРНО

print $fd[2] What was that $got # НЕВЕРНО

Bprintn printf это ограничение удается обойти - воспользуйтесь блоком и выражением, в котором находится файловый манипулятор

print { $fd[1] } funny stuff\n

printf { $fd[1] } Pity the poor %x \n 3 735 928 559 Pity the poor deadbeef

Внутри блока может находиться и более сложный код Следующий фрагмент отправляет сообщение в один из двух адресов

$ок = -X /bin/cat

print { $ок $fd[1] $fd[2] } cat stat $ok\n print { $fd[ 1 + ($ok 110)] } cat stat $ok\n ,

Подход, при котором print и printf интерпретируются как вызовы методов объекта, не работает для оператора о, поскольку это настоящий оператор, а не вызов функции с аргументом без запятых. Если тип-глобы сохранены в структуре, как это было сделано выше, то для чтения записей можно воспользоваться встроенной функцией readline, работающей аналогично <>:

$got = readline($fd[0])