Самое простое решение - воспользоваться функцией sysopen, у которой режим и имя файла передаются в разных аргументах:

use Fcntl; # Для файловых констант

sysopen(OUTPUT, $filename, 0 WRONLY0 TRUNC)

or die "Couldnt open $filename for writing $\n";

A вот как добиться того же эффекта с функцией open для имен файлов, содержащих начальные или конечные пропуски:

Sfile =- s#"(\s)# /$1#, open(HANDLE, > $file\0")

or die "Couldt open Sfile for OUTPUT $\n";

Такая подстановка защищает исходные пропуски, но не в абсолютных именах типа " /etc/passwd ", а лишь в относительных (" passwd "). Функция open не считает нуль-байт ("\0") частью имени файла, но благодаря ему не игнорируются конечные пропуски.

Волшебная интерпретация файловых имен в функции open почти всегда оказывается удобной. Вам никогда не приходится обозначать ввод или вывод с помощью особой формы " -. Если написать фильтр и воспользоваться простой функцией open, пользователь сможет передать вместо имени файла строку "gzip -de bible. gz I " - фильтр автоматически запустит программу распаковки.

Вопросы безопасности open актуальны лишь для программ, работающих в особых условиях. Если программа должна работать под управлением чего-то другого - например, сценариев CGI или со сменой идентификатора пользователя, - добросовестный программист всегда учтет возможность ввода пользователем собственного имени файла, при котором вызов open для простого чтения превратится в перезапись файла или даже запуск другой программы. Параметр командной строки Perl -Т обеспечивает проверку ошибок.

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

Описание функций open и sysopen вperlfunc(l); рецепты 7.1, 7.7,16.2, 19.4 и 19.6.

7.3. Тильды в именах файлов

Проблема

Имя файла начинается с тильды (например, -usemame/blah), однако функция open не интерпретирует его как обозначение домашнего каталога (home directory).

Решение

Выполните ручное расширение с помощью следующей подстановки;

Sfilename =~ s{ " ~ ( ["/]. ) } { $1

-> (getpwnam(S1))[7]

( $ENV{H0ME} II $ENV{L0GDIR}

7.4. Имена файлов в сообщениях об ошибках 249

II (getpwurd($>))[7]

}ех,

Комментарий

Нас интересуют следующие применения тильды:

-user -user/blah

~/blah

где user - имя пользователя.

Если ~ не сопровождается никаким именем, используется домашний каталог текущего пользователя.

В данной подстановке использован параметр /е, чтобы заменяющее выражение интерпретировалось как программный код Perl. Если за тильдой указано имя пользователя, оно сохраняется в $1 и используется getpwnam для выбора домашнего каталога пользователя из возвращаемого списка. Найденный каталог образует заменяющую строку. Если за тильдой не указано имя пользователя, подставляется либо текущее значение переменной окружения НОМЕ или LOGOIR. Если эти переменные не определены, задается домашний каталог текущего пользователя.

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

Описание функции getpwnam вperlfunc(l); шап-страница getpwnam(2) вашей системы; рецепт 9.6.

7.4. Имена файлов в сообщениях об ошибках

Проблема

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

Решение

Воспользуйтесь именем файла вместо манипулятора:

open($path, "< Spath")

or die "Couldnt open Spath for reading • $!\n";

Комментарий

Стандартное сообщение об ошибке выглядит так:

Argument "3\п" Isnt numeric In multiply at tallyweb line 16, <LOG> chunk 17.

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

Описание функции open в perlfunc{l); рецепт 7.1.

7.5. Создание временных файлов

Проблема

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

Решение

Если имя файла не существенно, воспользуйтесь методом класса new tmpf ile модуля IO::File для получения файлового манипулятора, открытого для чтения и записи:

use 10::File;

$fh = 10: :File->new tnipfile

or die "Unable to make new temporary file: $!";

Если имя файла должно быть известно, получите его функцией tmpnam из модуля POSIX и откройте файл самостоятельно:

use 10::File;

use POSIX qw(tmpnam);

# Пытаться получить временное имя файла до тех пор,

# пока не будет найдено несуществующее имя do { $name = tmpnam() }

until $fh = 10:;File->new{Sname, O.RDWR0 CREAT0 EXCL):

# Установить обработчик, который удаляет временный файл

# при нормальном или аварийном завершении программы

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

Argument "ЗХп" isnt numeric in multiply at tallyweb line 16, </usr/local/data/mylog3.dat> chunk 17.

К сожалению, этот вариант не работает при включенной директиве strict refs, поскольку переменная $path в действительности содержит не файловый манипулятор, а всего лишь строку, которая иногда ведет себя как манипулятор. Фрагмент (chunk), упоминаемый в предупреждениях и сообщениях об ошибках, представляет собой текущее значение переменной $..