Pobieranie śladów stosu w Perlu?

Question

Jak uzyskać ślady stosu w Perlu?

Answer 1

Istnieje wiele przydatnych, cor Narzędzia oparte na e i CPAN do generowania śledzenia stosu (jak ilustrują inne odpowiedzi). Jeśli jednak chcesz przetasować własne, sprawdź wbudowane caller. Możesz użyć tego, aby zejść ze stosu i zobaczyć dokładnie, co się dzieje.

Answer 2

(od use Carp;) da ci pełny ślad stosu jako część błędu. Jeśli potrzebujesz go jako część czegoś, czego potrzebujesz, to wszystko, czego potrzebujesz, to confess.

za komentarze, oto wyjście różnych Carp funkcji:

use strict; 
use warnings; 
use Carp qw/longmess cluck confess/; 

sub foo { 
    &bar; 
} 

sub bar { 
    &baz; 
} 

sub baz { 
    shift->(); 
} 

my %tests = (
    'longmess' => sub { print longmess 'longmess' }, 
    'cluck' => sub { cluck 'using cluck' }, 
    'confess' => sub { confess 'using confess' }, 
); 

while (my ($name, $sub) = each %tests) { 
    print "$name - before eval:\n"; 
    eval { 
     foo($sub); 
    }; 
    print "$name - before if:\n"; 
    if ($@) { 
     print "caught: $@"; 
    } 
    print "$name - done\n\n"; 
} 

Uruchomienie tego skryptu, można uzyskać:

 
longmess - before eval: 
longmess at - line 14 
     main::baz called at - line 10 
     main::bar called at - line 6 
     main::foo('CODE(0x183a4d0)') called at - line 26 
     eval {...} called at - line 25 
longmess - before if: 
longmess - done 

confess - before eval: 
confess - before if: 
caught: using confess at - line 20 
     main::__ANON__() called at - line 14 
     main::baz called at - line 10 
     main::bar called at - line 6 
     main::foo('CODE(0x183a3e0)') called at - line 26 
     eval {...} called at - line 25 
confess - done 

cluck - before eval: 
using cluck at - line 19 
     main::__ANON__() called at - line 14 
     main::baz called at - line 10 
     main::bar called at - line 6 
     main::foo('CODE(0x183a434)') called at - line 26 
     eval {...} called at - line 25 
cluck - before if: 
cluck - done 

Uruchomienie tego skryptu, ale przekierowuje STDOUT (pokazując w ten sposób, co zostanie wydrukowane na STDERR) , otrzymujesz:

 
using cluck at - line 19 
     main::__ANON__() called at - line 14 
     main::baz called at - line 10 
     main::bar called at - line 6 
     main::foo('CODE(0x183a434)') called at - line 26 
     eval {...} called at - line 25 

Answer 3

Dla potrzeb debugowania, podoba mi się Carp::Always.

perl -MCarp::Always my_script.pl 

Answer 4

Łatwy sposób korzystania z caller. Ten kod nie używa żadnego dodatkowego modułu. Po prostu umieść go tam, gdzie jest to potrzebne.

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