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

Функция sysopen получает три или четыре аргумента:

sysopen(FILEHANDLE, sysopen(FILEHANDLE,

Sname, Sflags) or die "Cant open Sname

Sname, Sflags, Sperms) or die "Cant open Sname

Здесь Sname - имя файла без «довесков» в виде < или +; Sflags - число, полученное объединением констант режимов 0 СЯЕАТ, 0 WRONLY, 0 TRUNG и т. д. операцией OR. Конкретный состав доступных констант 0 зависит от операционной системы. Дополнительные сведения модно найти в электронной документации (обычно ореп(2), но не всегда) или в файле /usr/include/fcntl.h. Обычно встречаются следующие константы:

0 RDONLY Только чтение. 0 WRONLY Только запись. 0 RDWR Чтение и запись.

0 CREAT Создание файла, если он не существует.

0 EXCL Неудачное заверщение, если файл уже существует.

0 APPEND Присоединение к файлу.

0 TRUNC Очистка содержимого файла.

0 NONBLOCK Асинхронный доступ.

К числу менее распространенных констант принадлежат 0 SHLOCK, 0 EXLOCK, 0 BINARY, 0 NOCTTY и 0 SYNC. Обращайтесь к странице руководства ореп(2) или к ее эквиваленту.

Если функции sysopen не передается аргумент Sperms, Perl использует восьмеричное число 0666. Права доступа задаются в восьмеричной системе и учитыва-

ют текущее значение маски доступа (задаваемой функцией umask) процесса. В маске доступа сброшенные биты соответствуют запрещенным правам. Например, если маска равна 027 (группа не может записывать; прочие не могут читать, записывать или выполнять), то вызов sysopen с параметром 066 создает файл с правами 0640 (0666&-027 = 0640).

Если у вас возникнут затруднения с масками доступа, воспользуйтесь простым советом: передавайте значение 0666 для обычных файлов и 0777 для каталогов и исполняемых файлов. У пользователя появляется выбор: если ему понадобятся защищенные файлы, то может выбрать маску 022, 027 или антиобщественную маску 077. Как правило, решения из области распределения прав должны приниматься не программой, а пользователем. Исключения возникают при записи в файлы, доступ к которым ограничен: почтовые файлы, cookies в Web-броузерах, файлы .rhosts и т. д. Короче говоря, функция sysopen почти никогда не вызывается с аргументом 0644, так как у пользователя пропадает возможность выбрать более либеральную маску.

Приведем примеры практического использования open и sysopen.

Открытие файла для чтения:

open(FH, "< Spath") or die$!;

sysopen(FH, Spath, 0 RDONLY) or die$!;

Открытие файла для записи (если файл не существует, он создается, а если существует - усекается):

open(FH, "> Spath") or dle$!;

sysopen(FH, Spath, 0 WRONLY0 TRUNC0 CREAT) or dle$!;

sysopen(FH, Spath, 0 WRONLY0 TRUNC0 CREAT, 0600) or die$!;

Открытие файла для записи с созданием нового файла (файл не должен существовать):

sysopenCFH, Spath, 0 WRONLY0 EXCL0 CREAT) or dieS!;

sysopen(FH, Spath, 0 WRONLY0 EXCL0 CREAT, 0600) or die$!;

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

open(FH, "» Spath") or dieS!

sysopenCFH, Spath, 0 WRONLY0 APPEND0 CREAT) or die$!

sysopen(FH, Spath, 0 WRONLY0 APPEND0 CREAT, 0600) or die$!

Открытие файла для присоединения (файл должен существовать);

sysopen(FH, Spath, 0 WRONLY0 APPEND) ordieS!;

Открытие файла для обновления (файл должен существовать):

open(FH, "+< Spath") or dieS!;

sysopen(FH, Spath, 0 RDWR) or die$!;

Открытие файла для обновления (в случае необходимости файл создается):

sysopen(FH, Spath, 0 RDWR0 CREAT) or dieS!;

sysopen(FH, Spath, 0 RDWR0 CREAT, 0600) or die$!;

Открытие файла для обновления (файл не должен существовать):

7.2. Открытие файлов с нестандартными именами 247

sysopen(FH, Spath, 0 RDWR0 EXCL0 CfiEAT) or dieS!;

sysopen(FH, Spath, 0 RDWR0 EXCL0 CREAT, 0600) or die$!;

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

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

Описание функций open, sysopen и umask в perlfunc(i); документация по стан- дартным модулям IO::File и Fcntl; страницы руководства ореп(2), fopen(3) и umask(2); рецепт 7.2.

7.2. Открытие файлов с нестандартными именами

Проблема

Требуется открыть файл с нестандартным именем - например, "-"; начинающимся с символа <, > или ; содержащим начальные или конечные пропуски; заканчивающимся символом I. Функция open не должна принимать эти функции за служебные, поскольку вам нужно совершенно иное.

Решение

Выполните предварительное преобразование:

Sfilename =~ s#~(\s)#./Sl#;

open(HANDLE, "< Sfilename\0") or die "cannot open Sfilename : S!\n";

Или просто воспользуйтесь функцией sysopen:

sysopen(HANDLE, Sfilename, 0 RD0NLY) or die "cannot open Sfilename : $!\n";

Комментарий

Функция open определяет имя файла и режим открытия по одному строковому аргументу. Если имя файла начинается с символа, обозначающего один из режимов, open вполне может сделать что-нибудь неожиданное. Рассмотрим следующий фрагмент:

Sfilename = shift @ARGV;

open(INPUT, Sfilename) or die "cannot open Sfilename ; S!\n";

Если пользователь указывает в командной строке файл ">/etc/passwci", программа попытается открыть/etc/passwd для записи - со всеми вытекающими последствиями! Режим можно задать и явно (например, для записи):

open(0UTPUT, ">$filename")

or die "Couldnt open Sfilename for writing: S!\n";

ho даже в этом случае пользователь может ввести имя ">data", после чего программа будет дописывать данные в конец файла data вместо того, чтобы стереть прежнее содержимое.