log file in Log4perl

palette has asked for the wisdom of the Perl Monks concerning the following question:

Hi,

I wanted to create a logfile on the fly using Log4perl.
I am having the following lines in my code

log4perl.logger.ClassA = DEBUG, ClassA

log4perl.appender.ClassA                          = Log::Log4perl::App
+ender::File
log4perl.appender.ClassA.filename                 = \
sub  {
          my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = l
+ocaltime time;
          my $date=sprintf("%04d%02d%02d",1900+$year,$mon+1,$mday);
          my $log_file="/tmp/ClassA".$date.".log";
          return $log_file;
}
[download]

In the module the call to the conf file


BEGIN {
        Log::Log4perl::init_and_watch('/etc/log4perl.conf',5);
        $__PACKAGE__::mylog=Log::Log4perl->get_logger();
}
[download]

But when this module is called from the testscript able to see the following error.
the error reads something like this while executing the testscript.

#   in classa.t at line 8.
#     Tried to use 'ClassA'.
#     Error:  Can't evaluate 'sub  {' (Missing right curly or square b
+racket at (eval 136) line 2, at end of line
# syntax error at (eval 136) line 2, at EOF
# ) at /usr/local/lib/perl5/site_perl/5.8.5/Log/Log4perl/Config.pm lin
+e 715.
[download]

Comment on log file in Log4perl Select or Download Code

Replies are listed 'Best First'.

Re: log file in Log4perl
by Melly (Hermit) on Jan 12, 2007 at 12:12 UTC

What happens if you try:

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = l
+ocaltime time;
my $date=sprintf("%04d%02d%02d",1900+$year,$mon+1,$mday);
my $log_file="/tmp/ClassA".$date.".log";
log4perl.appender.ClassA.filename = $log_file;
[download]

map{$a=1-$_/10;map{$d=$a;$e=$b=$_/20-2;map{($d,$e)=(2*$d*$e+$a,$e**2
-$d**2+$b);$c=$d**2+$e**2>4?$d=8:_}1..50;print$c}0..59;print$/}0..20
[download]

Tom Melly, pm@tomandlu.co.uk

[reply]
[d/l]
[select]

Re: log file in Log4perl
by Anonymous Monk on Jan 12, 2007 at 11:39 UTC

Aren't you missing \ at the end of every line of your sub?

[reply]

Re^2: log file in Log4perl

by palette (Scribe) on Jan 12, 2007 at 11:57 UTC

[reply]

Re^3: log file in Log4perl

by ferreira (Chaplain) on Jan 12, 2007 at 12:07 UTC

In the piece of code you mentioned, you are not writing Perl code but a properties file (with lines "key = value") which is read by this statement:

 Log::Log4perl::init_and_watch('/etc/log4perl.conf',5);
[download]

The value can be extended for many lines if they end in "\". There is more info in the FAQ within Log-Log4perl distribution.

[reply]
[d/l]
[select]

Re^3: log file in Log4perl

by jasonk (Parson) on Jan 12, 2007 at 14:23 UTC

Because the Log4perl configuration file format requires each configuration item to be on a single line. You can continue a line onto the next line by ending it in a backslash, or you can just type it out as one really long line. If you review the documentation on CPAN again, you will notice that all of the examples use very short subs, and none of them span more than one line.

The method I normally use for approaching this is something like...

# config file
log4perl.logger.ClassA = DEBUG, ClassA
log4perl.appender.ClassA = Log::Log4perl::Appender::File
log4perl.appender.ClassA.filename = sub { log_filename() }

# in the main code
use POSIX 'strftime';

sub log_filename {
    return strftime( "/tmp/ClassA%Y%m%d.log", localtime );
}

Log::Log4perl::init_and_watch('/etc/log4perl.conf',5);
my $mylog = Log::Log4perl->get_logger();
[download]

We're not surrounded, we're in a target-rich environment!

[reply]
[d/l]


more useful options
	PerlMonks