Comment puis-je obtenir une liste de la pile d'appels en Perl ?

Question

Y a-t-il un moyen d'accéder (pour l'impression) à une liste de sous-modules + module à une profondeur arbitraire de sous-appels précédant la position actuelle dans un script Perl?

J'ai besoin de faire des modifications à certains modules Perl (.pm). Le flux de travail est initié à partir d'une page web via un cgi-script, passant des entrées à travers plusieurs modules/objets se terminant dans le module où j'ai besoin d'utiliser les données. À un moment donné, les données ont été modifiées et j'ai besoin de savoir où.

Answer 1

Vous pouvez utiliser Devel::StackTrace.

use Devel::StackTrace;
my $trace = Devel::StackTrace->new;
print $trace->as_string; # comme carp

Cela fonctionne comme la trace de Carp, mais vous pouvez avoir plus de contrôle sur les frames.

Le seul problème est que les références sont transformées en chaînes de caractères et si une valeur référencée change, vous ne la verrez pas. Cependant, vous pourriez mettre en place quelques choses avec PadWalker pour imprimer toutes les données (ce serait énorme, cependant).

Answer 2

Carp::longmess fera ce que vous voulez, et c'est standard.

use Carp qw;
use Data::Dumper;
sub A { &B; }
sub B { &C; }
sub C { &D; }
sub D { &E; }

sub E { 
    # Uncomment below if you want to see the place in E
    # local $Carp::CarpLevel = -1; 
    my $mess = longmess();
    print Dumper( $mess );
}

A();
__END__
$VAR1 = ' at - line 14
    main::D called at - line 12
    main::C called at - line 10
    main::B called at - line 8
    main::A() called at - line 23
';

J'ai trouvé cette sous-routine (Maintenant avec option d'action de bénédiction!)

my $stack_frame_re = qr{
    ^                # Beginning of line
    \s*              # Any number of spaces
    ( [\w:]+ )       # Package + sub
    (?: [(] ( .*? ) [)] )? # Anything between two parens
    \s+              # At least one space
    called [ ] at    # "called" followed by a single space
    \s+ ( \S+ ) \s+  # Spaces surrounding at least one non-space character
    line [ ] (\d+)   # line designation
}x;

sub get_stack {
    my @lines = split /\s*\n\s*/, longmess;
    shift @lines;
    my @frames
        = map { 
              my ( $sub_name, $arg_str, $file, $line ) = /$stack_frame_re/;
              my $ref =  { sub_name => $sub_name
                         , args     => [ map { s/^'//; s/'$//; $_ } 
                                         split /\s*,\s*/, $arg_str 
                                       ]
                         , file     => $file
                         , line     => $line 
                         };
              bless $ref, $_[0] if @_;
              $ref
          } 
          @lines
       ;
    return wantarray ? @frames : \@frames;
}

Answer 3

caller peut le faire, bien que vous puissiez souhaiter encore plus d'informations que cela.

Answer 4

Il y a aussi Carp::confess et Carp::cluck.

Answer 5

Alors que cela ne répond pas à votre question, cela pourrait vous aider à résoudre votre problème :-)

Voici un article intéressant décrivant une façon de découvrir qui modifie vos variables de Mark Dominus