Wie wird eine Teilstapelspur mit Log4perl gedruckt?

Question

Mit Log4perl weiß ich, dass ich eine vollständige Stack-Trace mit dem% T-Formatzeichenfolge enthalten kann.

Gibt es eine Möglichkeit, eine Teilstapelspur zu drucken? Sag mal, die ersten N Level?

Answer 1

können Sie Log::Log4perl::Layout::PatternLayout::Stacktrace verwenden:

use strict; 
use warnings 'all'; 

use Log::Log4perl::Layout::PatternLayout::Stacktrace; 

sub foo { bar() } 
sub bar { baz() } 
sub baz { Log::Log4perl->get_logger->warn('baz') } 

$ENV{L4P_STACKTRACE_MAX} = 3; # max number of stack frames to show 

Log::Log4perl->init('log4perl.conf'); 
foo(); 

Auf diese Weise können Sie die %S Formatbezeichner in Ihrem Muster verwenden:

log4perl.rootLogger=DEBUG, SCREEN 
log4perl.appender.SCREEN=Log::Log4perl::Appender::Screen 
log4perl.appender.SCREEN.layout=PatternLayout 
log4perl.appender.SCREEN.layout.ConversionPattern=%S 

Ausgang:

==== START STACK TRACE === 
[1] at ./foo line 10 
     __ANON__ (Log::Log4perl::Logger=HASH(0x1a41a68), "baz") 
[2] at ./foo line 9 
     baz() 
[3] at ./foo line 8 
     bar() 
... 1 frames cut off 
=== END STACK TRACE === 

---

Um etwas mehr wie das, was %T erzeugt, ein benutzerdefiniertes Format als Parameter an %S geben (erfordert Login :: Log4perl 1.20 oder höher):

log4perl.appender.SCREEN.layout.ConversionPattern= \ 
    %S{%s called at %f line %l%[nr!L4P_STACKTRACE_MAX,s=]b} 

finden Sie in der Dokumentation für Stacktrace::Configurable für die unterstützten Formatbezeich.

Ausgang:

Log::Log4perl::Logger::__ANON__ called at ./foo line 10 
main::baz called at ./foo line 9 
main::bar called at ./foo line 8