Comment imprimer une trace de pile partielle avec Log4perl?

Question

Avec Log4perl, je sais que je peux inclure une trace de pile complète en utilisant la chaîne de format% T.

Existe-t-il un moyen d'imprimer une trace de pile partielle? Dites, les premiers niveaux de N?

Answer 1

Vous pouvez utiliser Log::Log4perl::Layout::PatternLayout::Stacktrace:

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(); 

Cela vous permet d'utiliser le spécificateur de format %S dans votre modèle:

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

Sortie:

==== 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 === 

---

Pour quelque chose comme ce que %T génère, passer un format personnalisé en tant que paramètre à %S (nécessite Log :: Log4perl 1.20 ou supérieur):

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

Voir la documentation Stacktrace::Configurable pour les formats de type pris en charge.

sortie:

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