Multiple log file creation using Log4perl

Dasari

Hi,

My requirement is like I have different languages and for each language I have to create a separate log file by using Log4perl. I am able to create the log file dynamically for one lanugage. But when I am looping through other language I am getting the following error.

"Can not call method log on undefined value" under Appender.pm file.

I am decaring the log configuration file as
log4perl.logger = DEBUG, FileApp, ScreenApp
log4perl.appender.FileApp = Log::Log4perl::Appender::File
log4perl.appender.FileApp.filename = sub { log_file(); };
log4perl.appender.FileApp.layout = PatternLayout
log4perl.appender.FileApp.layout.ConversionPattern = %d %p: %M> %m%n

and then I am calling
Log::Log4perl::init(log conf file path);
$logger = Log::Log4perl->get_logger();

The above code I am iterating under a loop. I am able to create the log file for the first time. But after the second iteration I am getting the error.

can you please help me to resolve it.

Thanks,
Ramesh

Adam Stoller

When you say your running that code in a loop - are you doing it in a tight-loop and expecting to have N loggers available at the same time - or in a big-loop in which each time through you want to have a differently initialized logger variable?

You might try using something like this (which I tend to use - but not in a loop)(ignore extraneous white-space in view of code below - that's a forum bogosity - not in the actual code):

...
our $logger;
setlog("$iwhome/local/logs/some_logfile.log");
...
sub setlog {
    my $logfile = shift || $LOG_DEFAULT;
    my $log_conf = qq(
log4perl.rootLogger=DEBUG, LOGFILE
log4perl.appender.LOGFILE=Log::Log4perl::Appender::File
log4perl.appender.LOGFILE.filename=$logfile
log4perl.appender.LOGFILE.mode=append
log4perl.appender.LOGFILE.layout=PatternLayout
log4perl.appender.LOGFILE.layout.ConversionPattern=\%d \%p > \%F{1}:\%L - \%m\%n
);
    Log::Log4perl->init(\$log_conf);
    $logger = Log::Log4perl->get_logger();
}

If you're trying to do it in a tight-loop, you'll probably need to declare $logger within the subroutine and return it - rather than acting on a globally declared variable.

Hope that helps.