print;

select (STDOUT); # Восстановить стандартный вывод

Параметр -i заботится о создании резервных копий (если вы не желаете сохранять исходное содержимое файлов, используйте -i вместо -i.orig), а -р заставляет Perl перебирать содержимое файлов, указанных в командной строке (или STDIN при их отсутствии).

Приведенная выше однострочная программа приводит данные:

Dear Sir/Madam/Ravenous Beast,

As of DATE, our records show your account IS overdue Please settle by the end of the month. Yours in cheerful usury,

--A. Moneylender

К следующему виду:

Dear Sir/Madam/Ravenous Beast,

As of Sat Apr 25 12-28 33 1998, our records show your account IS overdue. Please settle by the end of the month Yours in cheerful usury,

--A Moneylender

Этот параметр заметно упрощает разработку и чтение профамм-трансляторов. Например, следующий фрагмент заменяет все изолированные эюемпляры "hisvar" па "hervar" во всех файлах С, С++ иуасс:

%рег1 -1 old -ре s{\bhisvar\b}{hervar}g * [Cchy]

%perl -i.old -ne print unless /"STARTS/ . /"ENDS/ bigfile text

Действие -i может включаться и выключаться с помощью специальной переменной $"1. Инициализируйте @iARGV и затем примените о так, как применили бы -i для командной строки:

# Организовать перебор файлов *.с в текущем каталоге,

# редактирование на месте и сохранение старого файла с расширением .ong local S"I = .ong; # Эмулировать -i.orig

local @ARGV = glob(».c); # Инициализировать список файлов while (о) {

If (S == 1) {

print "This line should appear at the top of each file\n",

s/\b(p)earl\b/{1}erl/ig, # Исправить опечатки с сохранением регистра print;

} continue {close ARGV if eof}

Учтите, что при создании резервной копии предыдущая резервная копия уничтожается.

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

Описание переменных $"1 и $. в perlvar{\); описание оператора . . в разделе «Range Operator» perlop(i); perlrun(i).

7.10. Непосредственная модификация файла без применения временного файла 261

7.10. Непосредственная модификация файла без применения временного файла

Проблема

Требуется вставить, удалить или изменить одну или несколько строк файла. При этом вы не хотите (или не можете) создавать временный файл.

Решение

Откройте файл в режиме обновления ("+<"), прочитайте все его содержимое в массив строк, внесите необходимые изменения в массиве, после чего перезапишите файл и выполните усечение до текущей позиции.

open(FH, "+< FILE" or die "Opening: $i";

@ARRAY = <FH>;

# Модификация массива ARRAY

seek(FH,0,0) or die "Seeking: $!";

print FH @iARRAY or die "Printing: $!";

truncate(FH, tell(FH)) or die "Truncating: $";

close(FH) or die "Closing; $";

Комментарий

Как сказано во введении, операционная система интерпретирует файлы как неструктурированные потоки байтов. Из-за этого вставка, непосредственная модификация или изменение отдельных битов невозможны (кроме особого случая, рассматриваемого в рецепте 8.13 - файлов с записями фиксированной длины). Для хранения промежуточных данных можно воспользоваться временным файлом. Другой вариант - прочитать файл в память, модифицировать его и записать обратно.

Чтение в память всего содержимого подходит для небольших файлов, но с большими возникают сложности. Попытка применить его для 800-мегабайтных файлов журналов на Web-сервере приведет либо к переполнению виртуальной памяти, либо общему сбою системы виртуальной памяти вашего компьютера. Однако для файлов малого объема подойдет такое решение:

open(F, "+< $infile") or die "cant read $infile: $"; $out = ; while (<F>) {

s/DATE/localtime/eg;

$out .= $ ;

seek(F, 0, 0) or die "Seeking; $!";

print F $out or die "Printing: $!";

truncate(F, tell(F)) or die "Truncating; close(F) or die "Closing; $!

V

Другие примеры операций, которые могут выполняться на месте, приведены в рецептах главы 8.

7.11. Блокировка файла

Проблема

Несколько процессов одновременно пытаются обновить один и тот же файл.

Решение

Организуйте условную блокировку с помощью функции flock;

open(FH, +< $path") or die "cant open Spath- $";

flock(FH,2) or die "cant flock Spath. S ; # Обновить файл, затем...

close(FH) or die "cant close Spath. $";

Комментарий

Операционные системы сильно отличаются по типу и степени надежности используемых механизмов блокировки. Perl старается предоставить программисту рабочее решение даже в том случае, если операционная система использует другой базовый механизм. Функция flock получает два аргумента: файловый манипулятор и число, определяющее возможные действия с данным манипулятором. Числа обычно представлены символьными константами типа LOCK EX, имена которых можно получить из модуля Fcntl или IO::File.

Символические константы LOCK SH, LOCK EX, LOCK UN и LOCK NB появились в модуле Fcntl лишь начиная с версии 5.004, но даже теперь они доступны лишь по специальному запросу с тегом : flock. Они равны соответственно 1, 2, 4 и 8, и эти значения можно использовать вместо символических констант. Нередко встречается следующая запись:

sub LDCK SH() { 1 } # Совместная блокировка (для чтения) sub LOCK EX() { 2 } # Монопольная блокировка (для записи) sub LOCK NB() { 4 } # Асинхронный запрос блокировки sub LOCK UN() { 8 } # Снятие блокировки (осторожно!)

Блокировки делятся на две категории; совместные (shared) и монопольные (exclusive). Термин «монопольный» может ввести вас в заблуждение, поскольку процессы не обязаны соблюдать блокировку файлов. Иногда говорят, что flock реализует условную блокировку, чтобы операционная система могла приостано-

Этот вариант подходит лишь для самых решительных. Он сложен в написании, расходует больше памяти (теоретически - намного больше), не сохраняет резервной копии и может озадачить других программистов, которые попытаются читать данные из обновляемого файла. Как правило, он не оправдывает затраченных усилий.

Если вы особо мнительны, не забудьте заблокировать файл.

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

Описание функций seek, truncate, open и sysopen вperlfunc{\); рецепты 7.8-7.9.