Как я могу получить имя текущей подпрограммы в Perl?

Question

В Perl мы можем получить имя текущего пакета и текущего номера строки. Используя предопределенные переменные, такие как __PACKAGE__ и __LINE__.

Как это я хочу, чтобы получить имя текущей подпрограммы:

use strict; 
use warnings; 

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

В приведенном выше коде я хочу, чтобы получить имя подпрограммы внутри функции test.

Answer 1

caller - это правильный способ сделать это в @eugene pointed out, если вы хотите сделать это внутри подпрограммы.

Если вы хотите, чтобы другая часть вашей программы могла идентифицировать информацию об упаковке и названии для coderef, используйте Sub::Identify.

Кстати, глядя на

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

Есть несколько важных моментов, говоря: Во-первых, не используйте prototypes, если вы пытаетесь имитировать встроенные команды. Во-вторых, не используйте &, если invoking a subroutine, если только вам не нужны необходимые эффекты.

Поэтому, что сниппет лучше записать в виде:

sub test 
{ 
    print __LINE__; 
} 
test(); 

Answer 2

Используйте caller() функцию:

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

Это даст вам имя текущей подпрограммы, в том числе его пакета (например 'main::test'). Закрытие возвращает имена, такие как 'main::__ANON__', а в eval будет '(eval)'.

Answer 3

Там специальный __SUB__ существует с perl-5.16.

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();