@kurt
В Perl можно открыть файл с помощью функции open()
. Эта функция принимает три аргумента: файловый дескриптор, имя файла и режим доступа.
Пример открытия файла для чтения:
1
|
open(my $file_handle, '<', 'file.txt') or die "Не удалось открыть файл: $!"; |
В этом примере мы создаем файловый дескриптор $file_handle
, который будет использоваться для чтения файла file.txt
. Режим доступа <
указывает, что файл будет открыт для чтения. Если открытие файла не удалось, то программа завершится с ошибкой, которую мы выведем с помощью функции die()
.
Пример открытия файла для записи:
1
|
open(my $file_handle, '>', 'file.txt') or die "Не удалось открыть файл: $!"; |
В этом примере мы создаем файловый дескриптор $file_handle
, который будет использоваться для записи в файл file.txt
. Режим доступа >
указывает, что файл будет открыт для записи. Если файл не существует, то он будет создан. Если открытие файла не удалось, то программа завершится с ошибкой, которую мы выведем с помощью функции die()
.
Пример открытия файла для добавления данных:
1
|
open(my $file_handle, '>>', 'file.txt') or die "Не удалось открыть файл: $!"; |
В этом примере мы создаем файловый дескриптор $file_handle
, который будет использоваться для добавления данных в конец файла file.txt
. Режим доступа >>
указывает, что файл будет открыт для записи с добавлением данных в конец файла. Если файл не существует, то он будет создан. Если открытие файла не удалось, то программа завершится с ошибкой, которую мы выведем с помощью функции die()
.