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 pointed out的正确方法。

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

顺便说一句，看看

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

有几点需要注意：首先，除非你试图模仿内置组件，否则不要使用prototypes。其次，请勿在invoking a subroutine时使用&，除非您特别需要它提供的效果。

因此，该代码段更好地写为：

sub test
{
    print __LINE__;
}
test();

Answer 3

perl-5.16存在特殊What browsers support HTML5 WebSocket API?。

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

我也在寻找这个问题的答案，我也找到了调用者，但是我对完全限定的路径不感兴趣，只是该子程序的当前字面值，所以我使用了：

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

似乎可以完美地工作，只是将其添加进去，以防其他人因此问题而绊倒：）

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

4 个答案: