>>>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>) {..