что нужно. Дело в том, что они используют лишь функцию fdopen уровня С без системной функции dup2.

Если у вас установлена версия Perl 5.004 и выше, воспользуйтесь методом объекта IO::Handle:

use 10::Handle;

$fh = 10::Handle->new();

$fh->fdopen(3, "r"); # Открыть fd 3 для чтения

Закрытие числовых файловых дескрипторов встречается еще реже. Задача напрямую решается функцией POSIX::close. Если в вашей системе нет библиотеки POSIX, но зато имеется работающая функция syscall (и ваш системный администратор установил файл sys/syscall.ph, созданный транслятором h2ph), можно воспользоваться функцией syscall, хотя переносимость в этом случае оставляет желать лучшего. Вам придется добавлять О к числам и присоединять "" к строкам, чтобы обеспечить правильность типов С; кроме того, код ошибки равен -1, а не false, как в других функциях Perl. Не стоит и говорить, что syscall применяется лишь в крайнем случае.

Ниже показано, как открыть файловые дескрипторы, которые почтовая система МН передает своим дочерним процессам. Дескрипторы идентифицируются по неременной окружения MHCONTEXTFD;

$fd = $ENV{MHCONTEXTFD}:

open(MHC0NTEXT, X&Sfd") or die "couldnt fdopen $fd: $!"; # after processing

close(MHCONTEXT) or die "couldnt close context file: $!";

Чтобы закрыть дескриптор по числовому значению, достаточно сначала вызвать для него open.

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

Документация но стандартным модулям POSIX и IO;;Handle; страница руководства fdopen(3) вашей системы; описание функции open вperlfunc(i).

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

npo6neNia

Требуется создать копию файлового манипулятора.

Решение

Синоним файлового манипулятора создается следующей командой: -СИНОНИМ = .ОРИГИНАЛ;

Чтобы создать независимую копию файлового дескриптора для существующего манипулятора, воспользуйтесь функцией open в режиме &:

7.20. Копирование файловых манипуляторов 279

openCOUTCOPY, >&STDOUT") or die "Couldnt dup STDOUT: $!"; open(INCOPY, "<&STDIN" ) or die "Couldnt dup STDIN : $!";

Чтобы создать синоним файлового дескриптора для существующего манипулятора, воспользуйтесь функцией open в режиме &=:

open(OUTALIAS, ">&=STDOUT") or die "Couldnt alias STDOUT: $!"; open(INALIAS, "<&=STDIN") or die "Couldnt alias STDIN : $!"; open(BYNUMBER, ">&=5") or die "Couldnt alias file descriptor 5: $!";

Комментарий

Если синоним манипулятора создан с помощью тип-глоба, программа по-прежнему работает лищь с одним объектом ввода/вывода Perl. При закрытии манипулятора-синонима закрывается и объект ввода/вывода. Все последующие попытки использования копий этого манипулятора лищь приводят к выдаче сообщений типа "print on closed filehandle ". Чередование записи через разные синонимы не вызывает проблем, поскольку при этом не создаются дублирующиеся структуры данных, способные вызвать десинхронизацию.

При копировании дескриптора командой ореп(КОПИЯ, ">&МАНИПУЛЯТОР") вызывается системная функция dup(2). Вы получаете два независимых дескриптора с общей текущей позицией, блокировкой и флагами, но разными буферами ввода/вывода. Закрытие одного дескриптора не отражается на его копии. Одновременная работа с файлом через оба дескриптора - верный путь к катастрофе. Обычно этот прием используется для сохранения и восстановления STDOUT и STDERR:

# Получить копии дескрипторов open(OLDOUT, ">&STDOUT"); open(OLDERR, ">&STDERR");

# Перенаправить stdout и stderr

open(STDOUT, "> /tmp/program.out") or die "Cant redirect stdout: open(STDERR, ">&STDOUT") or die "Cant dup stdout: $!";

# Запустить программу system($joe random program);

# Закрыть измененные манипуляторы

close(STDOUT) or die "Cant close STDOUT: $!";

close(STDERR) or die "Cant close STDERR; $!";

# Восстановить stdout и stderr

open(STDERR, ">&OLDERR") or die "Cant restore stderr: $!";

open(STDOUT, ">&OLDOUT") or die "Cant restore stdout: $!";

# Для надежности закрыть независимые копии

close(OLDOUT) or die "Cant close OLDOUT: $!";

close(OLDERR) or die "Cant close OLDERR: $!";

Если синоним дескриптора создается командой ореп(СИНОНИМ, ">&=МАНИПУЛЯ-ТОР "), в действительности вызывается системная функция ввода/вывода fdopen(3).

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

Страница руководства dup(2) вашей системы; описание функции open sperl-func(i).

7.21. Программа: netlock

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

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

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

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

Присвойте true переменной $File:;LockDir;:Debug, чтобы модуль выдавал сообщения при неудачном ожидании. Если вы забудете снять блокировку, при выходе из программы модуль снимет ее за вас. Этого не произойдет, если ваша программа получит неперехваченный сигнал.

Вспомогательная программа из примера 7.9 демонстрирует применение модуля File;:LockDir.

Пример 7.9. drivelock

#!/usr/bm/perl -w

# drivelock - демонстрация модуля File:.LockDir

Вы получаете один файловый дескриптор с двумя буферами, доступ к которым осуществляется через два манипулятора. Закрытие одного манипулятора закрывает дескрипторы синонимов, но не манипуляторы - если вы попытаетесь вызвать print для манипулятора с закрытым синонимом, Perl не выдаст предупреждения "print on closed filehandle", даже если вызов print закончится неудачей. Короче говоря, попытки работать с файлом через оба манипулятора тоже наверняка приведут к катастрофе. Такая методика используется только для открытия файлового дескриптора по известному числовому значению (см. рецепт 7.19).