7.17. Кэширование открытых файловых манипуляторов 275

7.17. Кэширование открытых файловых манипуляторов

Проблема

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

Решение

Воспользуйтесь стандартным модулем FileCache:

use FileCaehe

caeheout (Spath) # При каждом применении манипулятора

print Spath output ,

Комментарий

Функция cacheout модуля FileCache позволяет одновременно открывать больше файлов, чем позволяет операционная система Если воспользоваться ей для открытия существующего файла, который FileCache видит впервые, этот файл без лишних вопросов усекается до нулевой длины Однако во время фонового открытия и закрытия файлов cacheout следит за открывавшимися ранее файлами и не стирает их, а присоединяет к ним данные Она не умеет создавать каталоги, поэтому, если попытаться открыть файл /usr/local/dates/menno ewe в несуществующем каталоге/usr/local/dates, из cacheout будет вызвана die

Функция cacheout() проверяет значение константы NOFILE уровня С из стандартного заголовочного файла sys/params h, чтобы определить, сколько файлов разрешается открывать одновременно. В некоторых системах это значение может быть неверным или вовсе отсутствовать (например, там, где максимальное количество дескрипторов является лимитом ресурса процесса и устанавливается командой limit или ulimit). Если cacheout() не может получить значение NOFILE, достаточно присвоить $FileCache maxopen значение, на 4 меньше правильного, или подобрать разумное число методом проб и ошибок.

В примере 7.8 файл xferlog, создаваемый популярным FTP-сервером wuftpd, разбивается на файлы, имена которых соответствуют именам пользователей. Поля файла лг/er/og разделяются пробелами; имя пользователя хранится в четвертом поле с конца.

Пример 7.8. splitwulog

fti/usr/bin/perl

# splitwulog - разделение журнала wuftpd по именам пользователей use FileCache,

Soutdir = /var/log/ftp/by-user , while (О) {

unless (defined ($user = (split)[-4])) {

warn Invalid line S \n ,

next,

mwv глава 7 • Доступ к файлам

Пример 7.8 (продолжение)

Spath = "Soutdir/Suser"; cacheout $path; print Spath $ ;

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

Документация по стандартному модулю FileCache; описание функции open в iperlfunciX).

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

Проблема

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

Решение

Если вы предпочитаете обходиться без создания новых процессов, напишите цикл foreach для перебора файловых манипуляторов:

foreach Sfilehandle (@FILEHANDLES) { print Sfilehandle $stuff to print;

Если новые процессы вас не пугают, откройте файловый манипулятор, связав его с программой tee:

open(MANY, " tee filel file2 file3 > /dev/null") or die $ print MANY "dataXn" or die $

close(MANY) or die S

Комментарий

Файловый манипулятор передает выходные данные лишь одному файлу или программе. Чтобы дублировать вывод, следует многократно вызвать print или связать манипулятор с программой распределения выходных данных (например, tee). В первом варианте проще всего занести файловые манипуляторы в список или массив и организовать их перебор:

# use strict пожалуется на эту команду:

for Sfh (FHI, FH2, FH3) { print $fh "whatever\n" }

# HO не возразит против этой:

for $fh (-.FH1, •FH2, «FH3) { print $fh "whatever\n" }

Ho если ваша система включает программу tee или вы установили Perl-версию tee из рецепта 8.19, можно открыть канал к tee и поручить ей всю работу по копированию файла в несколько приемников. Не забывайте, что tee обычно ко-

7.19. Открытие и закрытие числовых файловых дескрипторов 277

пирует выходные данные в STDOUT; если лишняя копия данных вам не нужна, перенаправьте стандартный вывод tee в /dev/null:

open (FH, "I tee file1 file2 file3 >/dev/null"); print FH "whateverXn";

Вы даже можете перенаправить процессу tee свой собственный STDOUT и использовать при выводе обычную функцию print:

# Продублировать STDOUT в трех файлах с сохранением исходного STDOUT open (STDOUT, "I tee filel file2 fileS") or die Teeing off: $!\n"; print "whatever\n" or die "Writing: $!\n";

close(STDOUT) or die "Closing: $!\n";

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

Описание функции print Bperlfunc(l). Аналогичная методика используется в рецептах 8.19 и 13.15.

7.19. Открытие и закрытие числовых файловых дескрипторов

Проблема

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

Решение

Для открытия файлового дескриптора воспользуйтесь режимами "<&=" и "<&" или методом fdopen модуля IO::Handle:

open(FH, "<&=$FDNUM"); # FH открывается для дескриптора

open(FH, "<&$FONUM"); # FH открывается для копии дескриптора

use 10::Handle;

$fh->fdopen($FDNUM, "г"); # Открыть дескриптор 3 для чтения

Чтобы закрыть дескриптор, воспользуйтесь функцией POSIX:: close или откройте его описанным выше способом.

Комментарий

Иногда вам известен файловой дескриптор, а ие манипулятор. В системе ввода/ вывода Perl вместо дескрипторов используются манипуляторы, поэтому для уже открытого файлового дескриптора придется создать новый манипулятор. Режимы open "<&", ">&" и "+<&" решают эту задачу соответственно для чтения, записи и обновления. Режимы со знаком равенства ("<&=", ">&=" и "+<&=") работают с дескрипторами более экономно, при этом почти всегда делается именно то,