perl - Log4perl: easy_init を使用して INFO ファイルと ERROR ファイルを分離する

Question

現在、以下を使用して INFO 以上を STDOUT に送信しています。

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

ERROR 以上を STDERR に送信するにはどうすればよいですか?

Answer 1

その効果を達成するにはフィルターを使用する必要があるため、このタスクはおそらく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";