>>>>print FILE,"$mail:$data\n" if ($data ne $dat);
>>>print FILE "$mail:$data\n" if ($data ne $dat);
>>>
>>ой,слона то я и не заметил :) спасибо.
>>
>>>2 перевести в unixtime и вычесть количество секунд в 10 днях и
>>>обратно в дату
>>пробую... спасибо.
>>
>>
>>однако не всё так просто. редактирование inline что-то не работает. в таком
>>виде скрипт ничего не делает..
>>+> сначала очистит, потом добавит.. заводить временный массив?
>>+< добавляет желаемое в конец.
>open (FILE,">>","file.tmp") || die "cannot open file";
>while (<FILE>) {..

но так он из файла ничего не читает..