如何在 Perl 中获取当前子程序的名称？

Question

在 Perl 中，我们可以使用__PACKAGE__和__LINE__等预定义变量获取当前包的名称和当前行号。

像这样我想获取当前子程序的名称：

use strict;
use warnings;

print __PACKAGE__;
sub test()
{
    print __LINE__;
}
&test();

在上面的代码中，我想获取函数test子程序的名称。

Answer 1

使用caller()函数：

my $sub_name = (caller(0))[3];

这将为您提供当前子程序的名称，包括它的包（例如'main::test' ）。 闭包返回名称，如'main::__ANON__'并且在 eval 中它将是'(eval)' 。

Answer 2

caller是@eugene 指出的正确方法，如果您想在子例程中执行此操作。

如果您希望程序的另一部分能够识别 coderef 的包和名称信息，请使用Sub::Identify 。

顺便看看

sub test()
{
    print __LINE__;
}
&test();

有几个要点需要提及：首先，除非您试图模仿内置函数，否则不要使用原型。 其次，在调用子例程时不要使用& ，除非您特别需要它提供的效果。

因此，该片段最好写为：

sub test
{
    print __LINE__;
}
test();

Answer 3

perl-5.16存在特殊的__SUB__ 。

use v5.16;
use Sub::Identify qw/sub_fullname/;
sub foo {
    print sub_fullname( __SUB__ );  # main::foo
}

foo();

实际上，您可以将任何子程序引用（甚至匿名）传递给sub_fullname ：

use Sub::Identify qw/sub_fullname/;
sub foo {
    print sub_fullname( \&foo );  # main::foo
    print sub_fullname( sub{} );  # main::__ANON__
}

foo();

Answer 4

我也只是在寻找这个问题的答案，我也找到了 caller，但我对完全限定的路径不感兴趣，只是子的当前包名，所以我使用了：

my $current_sub = (split(/::/,(caller(0))[3]))[-1];

似乎工作完美，只需添加它，如果其他人因这个问题而绊倒:)