Re: [log4perl-devel] log4perl enhancement request ?

[Mike S. <msc...@ao...>]

Pete Siemsen wrote on 12/29/2003, 4:37 PM:

 > It seems like "Custom Cspecs" in PatternLayouts is the way to do
 > this in log4perl.

If you don't mind the expense of a bunch of caller() calls per logged 
message, here's a solution:

use Log::Log4perl qw(get_logger);

####################
sub level {
####################
     my $i = 0;
     $i++ while caller($i);
     return $i-6;
}

my $conf = q(
log4perl.PatternLayout.cspec.Y = sub { "  " x level() }
log4perl.category                  = WARN, Logfile
log4perl.appender.Logfile          = Log::Log4perl::Appender::Screen
log4perl.appender.Logfile.layout   = PatternLayout
log4perl.appender.Logfile.layout.ConversionPattern = %Y%m%n
);

Log::Log4perl::init(\$conf);

my $logger = get_logger("");
$logger->error("first");
bar();
$logger->error("first");

sub bar { $logger->error("second"); foo(); }
sub foo { $logger->error("third"); }

__END__

The $i-6 expression might need to be adapted if caller_level is set to 
anything but 0. Here's the output:

first
   second
     third
first

-- 
-- Mike
Mike Schilli
m...@pe...