Как делают я делаю свой Журнал:: работа регистратора Log4perl?

Question

Как делают я делаю свой Журнал:: работа регистратора Log4perl?

Вот код, который я имею:

use strict;
use warnings;
use Log::Log4perl qw(:easy);

Log::Log4perl->init({
 level => $DEBUG
});

my $logger = Log::Log4perl->get_logger("my.logger");
my $appender = Log::Log4perl::Appender->new("Log::Log4perl::Appender::File",filename => "my.file");
$appender->layout(Log::Log4perl::Layout::SimpleLayout->new);
$logger->add_appender($appender);

$logger->info("this is an info");

все, что я хочу сделать, зарегистрировать сообщение в файл, и иметь уровень обнаруживаются. Я понял именно это SimpleLayout для. Я хотел бы сделать это без конфигурационного файла. Выполнение кода выше показывает следующее сообщение:

Log::Log4perl configuration looks suspicious: No loggers defined

1

perl logging log4perl

задан Geo 22 May 2010 в 18:46

1 ответ

Другие вопросы по тегам:

perl logging log4perl

Похожие вопросы:

score 2 · Accepted Answer

Из http://log4perl.sourceforge.net/releases/Log-Log4perl/docs/html/Log/Log4perl/FAQ.html#f625e , попробуйте следующий подход:

use Log::Log4perl qw(:easy);
# Append to a log file
Log::Log4perl->easy_init( { level   => $DEBUG,
                            file    => ">>my.file" } );