Мне требуется урезать файл с помощью Perl. То есть, например, в файле хранится база с записями и последнюю запись нужно удалить. Вот, в общем-то и весь вопрос. Как это сделать?
Проблема в том, что из-за большого объёма файла и частом выполнении подобных действий, поступить стандартно - считать файл в массив и потом переписать его заново - не получится. Приходится использовать конструкцию open (FH,"+<filename") И как уменьшить размер файла в таком случае, perldoc умалчивает.
Заранее благодарен.
man perlfunc | grep -a 10 'truncate filehandle,length'29.10.04 21:06 Автор: NKritsky <Nickolay A. Kritsky> Статус: Elderman