Открытие и закрытие файла

open ДЕСКРИПТОР, РЕЖИМ, ИМЯ_ФАЙЛА; 
open ДЕСКРИПТОР, ИМЯ_ФАЙЛА; 
open ДЕСКРИПТОР;

#! perl  -w
# Имя файла задано строкой
open FILE1, "in.dat" or die "Ошибка открытия файла in.dat";
# Имя файла задано выражением
$name = "out";
$extent = "dat";
open FILE2, $name."."$extent or
  die "Ошибка открытия файла $name.$extent ";
# Имя файла задано переменной
$var = "/реrl/bin/perl.bat";
open FILE3, $var or die "Ошибка открытия файла $var";
# Имя файла содержится в переменной $FILE4
$FILE4 = "file4.dat";
open FILE4 or die "Ошибка открытий файла $FILE4";
# Имя дескриптора файла содержится в переменной $FH
$FH = "FILE5";
$FILE5 = "file5.dat":
open $FH or die "Ошибка открытия файла $FILE5";

ПРИМЕЧАНИЕ Если задано не полное имя файла, то открывается файл с указанным именем и расположенный в текущем активном каталоге. Можно задавать полное имя файла (см. третий оператор open из листинга 6.6), однако следует иметь в виду, что оно зависит от используемой операционной системы. Например в Windows следует обязательно задавать имя дисковода d:/perl/bin/perl.bat, если только файл не расположен на текущем активном диске. Количество одновременно открытых в программе файлов зависит от используемой операционной системы. Например, в системе UNIX можно открыть достаточно большое количество файлов, тогда как в DOS и Windows количество открытых файлов зависит от установленного значения переменной окружения FILES (от одного до 255) и в основном варьируется от 20 до 50 одновременно открытых файлов.

ПРИМЕЧАНИЕ Некоторые операционные системы требуют устанавливать указатель чтение/записи файла при переключении с операций чтения на операции записи. В Perl для этого предназначена функция seek( ), описание которой будет дано несколько позже в этом же параграфе. При открытии файлов в режиме чтения/записи с помощью функции ореn( ) в форме с одним и двумя параметрами соответствующие трем возможным режимам последовательности символов должны быть добавлены в виде префикса к именам файлов с допускаемым между ними и именами файлов произвольным числом пробелов, например, "+<file.dat" или "+>>file.dat".

ПРИМЕЧАНИЕ В UNIX для каждого файла определены права доступа для владельца файла (пользователя, создавшего его), для группы пользователей, в которую входит владелец файла, и для всех остальных пользователей. Эти права в каждой из перечисленных групп включают в себя право на чтение файла, право на запись в файл и право на выполнение файла, представляемые в виде трехбитового двоичного числа, которое удобно интерпретировать в виде восьмеричного числа: значение 4 определяет право на чтение, 2 — на запись и 1 — на выполнение. Остальные восьмеричные числа до 7 включительно представляют комбинацию прав доступа. Например, значение 6 определяет права чтения и записи (4+2=6). Таким образом, для каждой из перечисленных групп пользователей (владелец файла, пользователи его группы и все остальные) с помощью восьмеричного числа от 0 до 7 можно задать все возможные комбинации прав доступа, что обычно представляется в виде трехзначного восьмеричного числа. Например, значение 0666 (ноль ничего не определяет, а служит всего лишь указателем, что это восьмеричное число) сообщает, что для файла определены права на чтение и запись, но не на выполнение, для всех трех групп возможных пользователей.

sysopen ДЕСКРИПТОР, ИМЯ_ФАЙЛА, РЕЖИМ [, РАЗРЕШЕНИЕ];

СОВЕТ Если возникают затруднения с установкой прав доступа, то придерживайтесь следующего правила: для обычных файлов передавайте 0666, а для каталогов и исполняемых файлов — 0777.

use Fcntl;
# Только чтение
open FF, "< file.txt";
sysopen FF, "file.txt", O_RDONLY;
# Только запись (создается, если не существует,
# и очищается содержимое, если существует)
open FF, "> file.txt";
sysopen FF, "file.txt", O_WRONLY | O_CREAT | O_TRUNC;
# Добавление в конец (создается, если не существует)
open FF, ">> file.txt";
sysopen FF, "file.txt", O_WRONLY | O_CREAT | O_APPEND;
# Чтение/запись (файл должен существовать)
open FF, "+< file.txt"; 
sysopen FF, "file.txt", O_RDWR;
# Чтение/запись (файл очищается)
open FF, "+> file.txt";
sysopen FF, "file.txt", O_RDWR | O_CREAT | O_TRUNC;

open FH, "$file" or die "Нельзя открыть файл $file: $!";

Нельзя открыть файл file.txt: No such file or directory at ex06-00.pl line 4.

ПРИМЕЧАНИЕ Если стандартный ввод или вывод были переназначены при запуске сценария из командной строки, то операции ввода-вывода с помощью дескрипторов, соответствующих файлам "-" и ">-", будут осуществляться в файлы, определенные во время переназначения стандартного ввода или вывода.

#! perl -w
# Создание копии текущего дескриптора STDOUT
open(OLDSTDOUT, ">&STDOUT");
# Переназначение стандартного вывода
open(STDOUT, "> file.out") or die "Невозможно переназначить STDOUT: $!";
# Печать в файл file.out
print "Информация в переназначенный STDOUT\n":
# Закрытие переназначенного стандартного вывода
close(STDOUT) or die "Невозможно закрыть STDOUT:  $!";
# Восстановить дескриптор стандартного устройства вывода
open(STDOUT, ">&OLDSTDOUT") or die "Невозможно восстановить STDOUT: $!";
# Закрыть копию дескриптора стандартного устройства вывода 
close(OLDSTDOUT) or die "Невозможно закрыть OLDOUT:  $!";
# Печать в восстановленный файл стандартного вывода
print "Информация в восстановленный STDOUT\n";

close ДЕСКРИПТОР;

close (FILEIO ) or die "Ошибка закрытия файла: $!";

Следующая страница

Содержание главы