Как я могу подавить вывод в stdout и stderr в Log4perl? - PullRequest
Новая
       12

Как я могу подавить вывод в stdout и stderr в Log4perl?

4 голосов
/ 21 августа 2009

У меня есть этот саб для инициализации моего регистратора: 

sub initLogfiles{
    Log::Log4perl->easy_init($INFO); # We log all debug, info, warn, error and fatal messages.
        my $userlogappender = Log::Log4perl::Appender->new(
        "Log::Log4perl::Appender::File",
        filename => USERLOGFILE,
        mode     => "append",
        recreate => 1
    );
    my $userloglayout = Log::Log4perl::Layout::PatternLayout->new("%d;%m%n");
    $userlogappender->layout($userloglayout);
    $userlogger->add_appender($userlogappender);
}

Я только хочу, чтобы loginfo был в моем лог-файле. Как я могу предотвратить это от входа в стандартный вывод?

Ответы [ 2 ]

6 голосов
/ 21 августа 2009

Я нашел это. Я должен добавить эту строку в мою подпрограмму: 

$userlogger->additivity(0);

Я нашел ответ здесь: log4perl FAQ

5 голосов
/ 21 августа 2009

Log :: Log4perl-> easy_init () инициализирует библиотеку с ScreenAppender, поэтому журнал отправляется на стандартный вывод.

Удалите его и добавьте следующее для записи всех журналов (уровня отладки и выше) в файл: 

 Log::Log4perl->get_logger()->level($DEBUG);
...