log4perl如何更改'Logfile.filename'一次讀取？

Question

我有有

log4perl.appender.logFile   = Log::Log4perl::Appender::File 
log4perl.appender.logFile.filename = /myapp/conf/<ENVTAG>myapp.conf 

一個.conf文件之後，Perl腳本消耗它：

Log::Log4perl::init($logConf); 
my $logger = Log::Log4perl->get_logger; 
$logger->info("Begin"); 
$logger->info("End"); 

我想知道如何讀/改/更換< 'ENVTAG' >標記，以便將其設置爲：「dev」，「prod」，「測試」在Perl應用程序（正則表達式在這裏？）...另外，如何編輯Perl應用程序中的「logfile.filename」？

謝謝。

Answer 1

發現這一項上perlmonks網站

您可以參考它在配置或以程序本身。

my $logconf = qq(
    log4perl.logger      = DEBUG , LOG, SCREEN 

    log4perl.appender.LOG    = Log::Log4perl::Appender::File 
    log4perl.appender.LOG.filename  = sub { return getLogFile(); } 
    log4perl.appender.LOG.mode   = clobber 
    log4perl.appender.LOG.autoflush  = 1 
    log4perl.appender.LOG.layout  = Log::Log4perl::Layout::PatternLayout 
    log4perl.appender.LOG.layout.ConversionPattern = %d %p %m %n 
); 


sub getLogFile { 

    my $log=$0; 
    $log =~ s/^.*\\//; 
    $log =~ s/\..*//; 
    $log .= ".log"; 

    return $log; 
}