Хелп

[ALF]

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

[YA]

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

[ALF]

И то, и другое

[NeoNox]

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