VPF::как сделать log rotation? - Форум программистов

Valeria

Дата 26.9.2006, 10:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 277
Регистрация: 16.5.2006
Где: Санкт-Петербург

Репутация: нет
Всего: нет

Как проще всего узнать день,когда был создан лог-файл,чтобы создавать каждый день новый?
пыталась что-то сделать с переменной stat. уж больно там сложно - время в сек, с 1 января 1970 года.

Danissimo

Дата 26.9.2006, 10:40 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 150
Регистрация: 14.8.2006
Где: Санкт-Петербург

Репутация: 1
Всего: 1

Ответ на твой вопрос зависит от ответов на следующие:
- ты сама пишешь этот лог?
- если не ты сама, то как ты объяснишь той программе, что пишет в файл, что "а вот теперь надо писать в другой"?

Valeria

Дата 26.9.2006, 10:42 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 277
Регистрация: 16.5.2006
Где: Санкт-Петербург

Репутация: нет
Всего: нет

я сама пишу этот лог-файл.

Добавлено @ 10:47
вообще можно наверное так: создавать лог-файл с сегодняшней датой в имени, а потом при каждом обращении проверять таким образом дату, если не совпало, значит удалить старый лог, если такая же, то писать в этот лог. это я знаю как сделать. а еще есть варианты?

amg

Дата 26.9.2006, 10:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

Репутация: 38
Всего: 50

Цитата(Valeria @ 26.9.2006, 10:42

)

а еще есть варианты

Я бы воспользовался каким-нибудь модулем: Log::Dispatch::FileRotate, Log::Agent::Rotate, Logfile::Rotate

Valeria

Дата 26.9.2006, 11:41 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 277
Регистрация: 16.5.2006
Где: Санкт-Петербург

Репутация: нет
Всего: нет

если бы я еще знала как их использовать. в интернете ничего не найти.
нашла вот что:

Код


use Logfile::Rotate;
$logfile = new Logfile::Rotate(
                File   => "/var/adm/log/syslog",
                Count  => 5,
                Gzip   => "/usr/local/bin/gzip",
                Signal => 
                   sub {
                        open PID, "/etc/syslog.pid" or
                           die "Unable to open pid file:$!\n";
                        chomp($pid = <PID>);
                        close PID;
                        # should check validity first
                        kill 'HUP', $pid; 
                        }
            );

Код


$logfile->rotate(  );
undef $logfile;

только опять же надо вызывать вручную эту функцию rotate, только как узнать что день прошел?
вообщем, не понятно.

Valeria

Дата 26.9.2006, 12:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 277
Регистрация: 16.5.2006
Где: Санкт-Петербург

Репутация: нет
Всего: нет

спасибо, не буду мучиться. уже сделала с датой.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »