Но при чтении строк в таких системах происходят еще более странные вещи. Файл содержит "bad news\cM\cJ" - строку, состоящую из 10 байт. При чтении ваща программа не получит ничего, кроме "bad news\n, где "\п" - виртуальный символ перевода строки, то есть "\cJ". Следовательно, от него можно избавиться одним вызовом chop или chomp. Однако при этом приходится обманывать бедную программу и внущать ей, что из файла было прочитано всего 9 байт. Если прочитать 10 таких строк, она будет полагать, что из файла было прочитано 90 байт, хотя в действительности смещение будет равно 100. Из-за этого для определения текущей позиции всегда следует использовать функцию tell. Простой подсчет прочитанных байтов не подходит.

Такое наследие старой файловой системы СР/М, в которой хранились лищь сведения о количестве блоков, но не о размере файлов, бесит программистов уже несколько десятилетий, и конца-края этому не видно. Ведь DOS была совместима с файловым форматом СР/М, Windows - с форматом DOS, а NT - с форматом Windows. Грехи отцов преследуют потомков в четвертом поколении.

Впрочем, проблему одиночного "\п" мож}ю обойти - достаточно сообщить Perl (и операционной системе), что вы работаете с двоичными данными. Функция binmode означает, что прочитанные или записанные через конкретный манипулятор данные не долж}1Ы преобразовываться по правилам, установленным в системе для текстовых файлов.

Sgifname = picture gif",

open(GIF, Sgifname) or die can t open Sgifname $;

binmode(GIF), tt Теперь DOS не преобразует двоичные

tt входные данные GIF binmode(STDOUT), tt Теперь DOS не преобразует двоичные

tt выходные данные STDOUT

while (read(GIF, Sbuff, 8 * 2..10)) { print STDOUT Sbuff;

Вызов binmode в системах, где отличия между текстовыми и двоичными файлами несущественны (в том числе UNIX, Mac и Р1ап9), не принесет никакого вреда. Однако несвоевременный вызов функции в других системах (включая MVS, VMS и всех разновидностей DOS) может исказить содержимое файлов.

Если функция binmode не используется, в данных, прочитанных с помощью о, строковый терминатор системы заменяется на "\п", даже если $/ было присвоено другое значение. Аналогично, любой "\п, выводимый через манипулятор функцией print, превращается в строковый терминатор данной системы. Дополнительные сведения приведены во введении.

Если вы хотите, чтобы прочитанные данные совпадали с содержимым файла байт в байт, и при этом работаете в одной из перечисленных странных систем, - вызовите binmode. Конечно, если вы захотите использовать их с о, вам придется присвоить $/ настоящий разделитель записей.

8.13. Обновление файла с произвольным доступом 309

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

Описание фу}и<ций open и binmode вperlfunc(l); страницы руководства оре?7(2) и fopen(3) вашей системы.

8.12. Ввод/вывод с произвольным доступом

Проблема

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

Решение

Определите размер записи и умножьте его на номер записи, чтобы получить смещение в байтах. Затем вызовите seek для полученного смещения и прочитайте запись:

$АДРЁС = $РАЗМЁР . $НОМЁР,

seek(FH, $АДРЁС, 0) or die seek $i ,

read(FH, $БУФЕР, $PA3MEP):

Комментарий

в решении предполагается, что $НОМЕР первой записи равен нулю. Если нумерация начинается с единицы, измените первую строку фрагмента:

$АДРЁС = $РАЗМЕР * ($Н0МЕР-1),

Для текстовых файлов это решение не работает - только строки не имеют одинаковую длину. Но такие ситуации встречаются очень редко.

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

Описание функции seek в perlfunc{\)\ рецепт 8.13.

8.13. Обновление файла с произвольным доступом

Проблема

Требуется прочитать старую запись из двоичного файла, изменить ее содержимое и записать обратно.

Решение

Прочитайте (read) старую запись, упакуйте (раек) обновленное содержимое и запишите обратно.

use Fcntl; # Для SEEK SET и SEEK CUR

$ADDRESS = SRECSIZE . $RECNO,

seek(FH, $ADDRESS, SEEK SET) or die Seeking. $ ;

read(FH SBUFFER, SRECSIZE) == SRECSIZE

or die Reading $ ,

(BFIELDS = unpack($FORMAT, SBUFFER),

# Обновить содержимое, затем SBUFFER = pack($F0RMAT, (SFIELDS),

seek(FH, -SRECSIZE SEEK CUR) or die Seeking $ ,

print FH SBUFFER,

close FH or die Closing $i ,

Комментарий

Для вывода записей в Perl не потребуется ничего, кроме функции print Помните, что антиподом read является print, а не write, хотя, как ни странно, антиподом sysread все же является syswrite.

В примере 8 4 приведен исходный текст программы weekearly, которой передается один аргумент - имя пользователя. Программа смещает дату регистрации этого пользователя на неделю в прощлое Конечно, на практике с системными файлами экспериментировать не следует - впрочем, из этого все равно ничего не выйдет! Программа должна иметь право записи для файла, поскольку тот открывается в режиме обновления. После выборки и изменения записи программа упаковывает данные, возвращается на одну запись назад и записывает буфер.

Пример 8.4. weekearly

#i/usr/bin/perl

# weekearly - смещение даты регистрации на неделю назад use User pwent,

use 10 Seekable

Stypedef = L A12 A16 # Формат linux в sunos - L A8 A16

Ssizeof = length(pack($typedef ())),

Suser = shift((BARGV) $ENV{USER} $ENV{L0GNAME}

Saddress = getpwnam($user)->uid * Ssizeof

open (LASTLOG, +</var/log/lastlog )

or die can t update /usr/adm/lastlog $ seekdASTLOG, Saddress, SEEK SET)

or die seek failed $i read(LASTL0G, Sbuffer, Ssizeof) == Ssizeof

or die read failed $ ,

($time, Sline, Shost) = unpack($typedef Sbuffer) Stime -= 24 . 7 . 60 . 60 # Ha неделю назад

Sbuffer = pack($typedef, Stime, $line, Stime)

seek(LASTL0G, -Ssizeof SEEK CUR) й Вернуться на одну запись

or die seek failed $ print LASTLOG Srecord,

close(LASTLOG)

or die close failed $ ,