怎样获取函数本身的名称

fouter

如:
sub namexxx {
    如何在此处获取本函数的名称"namexxx"?
}

就像php的__FUNCTION__一样功能
function test()
{
    echo __FUNCTION__; // test
}
test();

Perl_Er

回复 1# fouter


   

       caller EXPR
       caller
           Returns the context of the current subroutine call.  In scalar context, returns the caller's package name if there is a caller (that is, if we're in a subroutine or "eval" or "require") and
           the undefined value otherwise.  In list context, returns

               # 0         1          2
               ($package, $filename, $line) = caller;

           With EXPR, it returns some extra information that the debugger uses to print a stack trace.  The value of EXPR indicates how many call frames to go back before the current one.

               #  0         1          2      3            4
               ($package, $filename, $line, $subroutine, $hasargs,

               #  5          6          7            8       9         10
               $wantarray, $evaltext, $is_require, $hints, $bitmask, $hinthash)

fouter

非常感谢回复 2# Perl_Er


   

flw

新版本 Perl 有个 __SUB__，和你说的 __FUNCTION__ 类似