Perl - специальный справочник


           

Perl. Специальный справочник - стр. 170


Hello!

Функция возвращает значение истина при успешном завершении. Если не задан дескриптор, вывод производится в STDOUT или в дескриптор файла, установленный как STDOUT (см. описание функции select далее в этой главе). Если список опущен, используется переменная $_. Поскольку print работает со списками, в которых каждый элемент данных считается отдельной записью, можно выводить в файл списки следующим образом (обратите внимание, что здесь переопределяется разделитель выходных записей, хранимый в переменной $,):

open (FILEHANDLE, ">array.dat")

or die ("Cannot open file array.dat");

$, = "\n";

$array = (1, 2, 3);

print FILEHANDLE, @array;

close (FILEHANDLE);

Теперь содержимое файла array.dat представляет собой:

1

2

3

Следующий код открывает только что записанный файл (обратите внимание, что в массив @array считываются сразу все строки файла и удаляется символ новой строки):

open (FILEHANDLE, "<array.dat")

or die ("Cannot open file array.dat");

chomp(@array = <FILEHANDLE>);

close FILEHANDLE;

print join (’, ’ @array);

1, 2, 3

write — запись в файл

Вместо print для записи в файл можно использовать функцию write:

write дескриптор

write выражение

write

Мы уже встречались с этой функцией в предыдущей главе (см. дополнительные подробности в гл. 11). write используется для вывода форматированных записей, а не как функция вывода общего назначения (для этой цели используется print). Если указан дескриптор файла, write выводит очередную форматированную запись для формата, приписанного этому дескриптору. Если указано выражение, то оно должно быть текстовой строкой, интерпретируемой как имя дескриптора. Наконец, если write вызывается без параметров, то используется STDOUT или дескриптор, который установлен как STDOUT (см. описание функции select далее в этой главе).

В следующем примере форматированную запись в файл format.txt выводится форматированная запись:

open (FILEHANDLE, ">format.txt")




Содержание  Назад  Вперед