Forum Webscript.Ru

Программирование => Perl => Тема начата: ALF от 24 Декабря 2002, 22:50:22

Название: Хелп
Отправлено: ALF от 24 Декабря 2002, 22:50:22

Народ, я только начинаю изучать перл, так что чур ногами сильно не бить за глупый вопрос :p
Помогите пожалуйста решить этот вопрос:
Если кол-ва строк в файле более 100, то все строки нужно удалить...

Название: Хелп
Отправлено: YA от 24 Декабря 2002, 23:01:19

Ты не можешь посчитать количество строк в файле или очистить его?

Название: Хелп
Отправлено: ALF от 24 Декабря 2002, 23:55:57

И то, и другое :(

Название: Хелп
Отправлено: NeoNox от 25 Декабря 2002, 14:26:36

open (FILE, "+>test.txt");
seek FILE,0,0;
@file = ;
if ($#file > 99){
$#file=-1;
seek FILE,0,0;
print FILE @file;
}
close(FILE);