Log4perl: отдельные файлы INFO и ERROR с помощью easy_init - PullRequest
Новая
       9

Log4perl: отдельные файлы INFO и ERROR с помощью easy_init

1 голос
/ 12 января 2011

В настоящее время я отправляю информацию и выше в STDOUT, используя: 

Log::Log4perl->easy_init({level=>("$INFO"), layout=>"%d %p - %m%n", file=>"STDOUT"});

Как я могу отправить сообщение об ошибке и выше в STDERR?

1 Ответ

2 голосов
/ 12 января 2011

Эта задача, вероятно, слишком сложна для установки easy_init, потому что для достижения этого эффекта необходимо использовать фильтры. При обычной настройке вы можете сделать это: 

use Log::Log4perl qw(:easy);

Log::Log4perl->init(\ qq{
    log4perl.logger = INFO, AppInfo, AppError

    # Filter to match level ERROR
    log4perl.filter.MatchError = Log::Log4perl::Filter::LevelMatch
    log4perl.filter.MatchError.LevelToMatch  = ERROR
    log4perl.filter.MatchError.AcceptOnMatch = true

    # Filter to match level INFO
    log4perl.filter.MatchInfo  = Log::Log4perl::Filter::LevelMatch
    log4perl.filter.MatchInfo.LevelToMatch  = INFO
    log4perl.filter.MatchInfo.AcceptOnMatch = true

    # Error appender
    log4perl.appender.AppError = Log::Log4perl::Appender::Screen
    log4perl.appender.AppError.stderr   = 1
    log4perl.appender.AppError.layout   = SimpleLayout
    log4perl.appender.AppError.Filter   = MatchError

    # Info appender
    log4perl.appender.AppInfo = Log::Log4perl::Appender::Screen
    log4perl.appender.AppInfo.stderr   = 0
    log4perl.appender.AppInfo.layout   = SimpleLayout
    log4perl.appender.AppInfo.Filter   = MatchInfo
});

ERROR "Error";
INFO "Info";
...