Perl. Библиотека программиста

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

Проблема

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

Решение

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

open(FH, "+< FILE" or die "Opening: $!";
@ARRAY = <FH>;
# Модификация массива ARRAY
seek(FH,0,0) or die "Seeking: $!";
print FH @ARRAY or die "Printing: $!";
truncate(FH,tell(FH)) or die "Truncating:  $!";
close(FH) or die "Closing: $!";

Комментарий

Для хранения промежуточных данных можно воспользоваться временным файлом. Другой вариант — прочитать файл в память, модифицировать его и записать обратно.

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

open(F, "+< $infile") or die "can't 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:  $!";

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

См. также

Описание функций seek, truncate, open