Как оставить в файле Х первых строк?

Guest · Отправлено: **07:37, 14-10-2002** | #2

Создать временный файл, скопировать туда первые пять строк, удалить старый файл и переименовать временный фал под именем старого.

Dan · Отправлено: **16:14, 14-10-2002** | #3

Я пошел на irc и мне там посовевали способ получше

Код:

 open(RE, "$counter_file");
 @indata = <RE>;
 close(RE);
 open(SAV, ">$counter_file");
 foreach $temp (@indata)
 {
        $counterzapis++;
        if ($counterzapis<=5)
        {
                print SAV $temp;
        }
 }

vasketsov · Отправлено: **16:34, 14-10-2002** | #4

Dan
Совет Guest-а более надежен, к тому же мне приходилось сталкиваться с разным пониманием префикса > (и не только его, кстати) в имени открываемого файла на разных версиях разных перлов для Windows, так что тестируй чтоб хвост не остался.

Dan · Отправлено: **18:02, 14-10-2002** | #5

vasketsov
Это будет внутри скрипта, т.е туда никаких параметров внешних не проходит...
А что ненадежного, я не пойму? Вроде как раз все будет нормально. Объясните?

vasketsov · Отправлено: **13:06, 17-10-2002** | #6

Dan
У тебя файл читается, потом открывается для записи и полностью очищается, и потом ты туда пишешь. А если дописать не успел?

Самый же безопасный и правильный вариант, да и самый простой, почему он сразу в голову не пришел только, это
1) открыть файл с префиксом +< (это открытие для чтения и записи, если файл есть, его содержимое сохраняется, если нет - он создается)
2) искать конец нужной строки.
3) установить конец файла в этом месте (возможно, придется обратить внимание на POSIX).
4) закрыть файл

Добавлено:

А про хвост - это я имел в виду, что в некоторых реализациях файл не очищается.