Wie kann ich eine Anrufliste in Perl abrufen?

Question

Gibt es einen Weg, auf den ich zugreifen kann (für den Ausdruck) eine Liste von sub + Modul zu beliebiger Tiefe von Unteraufrufen vor einer aktuellen Position in einem Perl-Skript?

Ich muss Änderungen an einigen Perl-Modulen (.pm) vornehmen. Der Workflow wird von einer Webseite über ein CGI-Skript initiiert, wobei die Eingabe durch mehrere Module/Objekte erfolgt, die in dem Modul enden, in dem ich die Daten verwenden muss. Irgendwo entlang der Linie wurden die Daten geändert und ich muss herausfinden, wo.

Answer 1

Sie können Devel::StackTrace verwenden.

Es verhält sich wie Carp-Trace, aber Sie können mehr Kontrolle über die Frames erhalten.

Das einzige Problem ist, dass Referenzen mit einem String versehen werden und wenn sich ein referenzierter Wert ändert, werden Sie ihn nicht sehen. Sie könnten jedoch einige Sachen mit PadWalker aufpinseln, um die vollen Daten auszudrucken (es wäre jedoch riesig).

Answer 2

caller kann das tun, obwohl Sie vielleicht noch mehr Informationen als das wollen.

Answer 3

Während dies Ihre Frage nicht beantworten, es könnte Ihnen Ihr Problem lösen helfen :-)

Hier ein interessanter Artikel ist eine Möglichkeit, die beschreiben, wie um herauszufinden, wer Ihre Variablen von Mark Dominus

Answer 4

Es gibt auch Änderungen Carp::confess und Carp::cluck.

Answer 5

Carp::longmess wird tun, was Sie wollen, und es ist Standard.

use Carp qw<longmess>; 
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 
'; 

Ich kam mit dieser Unter bis

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 6

eine, die mehr schön ist (jetzt mit optional blessin' Aktion!): Devel::PrettyTrace

use Devel::PrettyTrace; 
bt; 

Answer 7

Dieser Code funktioniert ohne zusätzliche Module. Fügen Sie es einfach hinzu, wo es gebraucht wird.

my $i = 1; 
print STDERR "Stack Trace:\n"; 
while ((my @call_details = (caller($i++)))){ 
    print STDERR $call_details[1].":".$call_details[2]." in function ".$call_details[3]."\n"; 
}