DamonLSD (17-04-2001 08:11):
cj, а может и правда, что-нибудь конкретное предложишь, а то ведь так ничего и не получается.
Спасибо.
По-моему, тривиальная задача, а раздули, как будто CIS обсуждаем:
require Symbol;
my $log = "access_log";
my $temp = "access_log_tmp";
my $TH = Symbol::gensym();
my $LH = Symbol::gensym();
unless(open($LH, "+>>$log"))
{
die();
}
flock($LH, 2);
seek($LH, 0, 0);
unless(open($TH, "+>>$temp"))
{
}
trucate($TH, 0);
foreach my $line (<$FH>)
{
#
# Тут проверить строку на вшивость в соответствии с требованиями
#
print($TH $line);
}
seek($TH, 0, 0);
truncate($LH, 0);
foreach my $line (<$TH>)
{
print($LH, $line);
}
close($LH);
close($TH);
unlink($temp);
Проверки на ошибки расставить по вкусу. Про отсутствие "фишки" с переименованием файла об\'яснять не буду. Запускать очень часто все-равно не советую.