Perl如何获取调用堆栈？

类似PHP中的debug_backtrace();，在Perl中是什么？

问于 2011-08-17, 02:40

わたしは
23

2 个答复

最早最新投票

#!/usr/bin/perl
use Carp;
sub t {
    Carp::cluck( "And here's the stack:" );
}
sub main {
    t;
}
main;

输出：

And here's the stack: at callstack line 6
        main::t() called at callstack line 9
        main::main() called at callstack line 11

更新

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

答于 2011-08-17, 02:46

Shore
1532

Java版本：

    Throwable t = new Throwable();
    for(int i = 0; i < t.getStackTrace().length; i++)
        System.out.println(t.getStackTrace()[i].toString());

链接	答于 25天前加藤 9