¿Cómo puedo obtener el nombre de la subrutina actual en Perl?

Question

En Perl podemos obtener el nombre del paquete actual y el número de línea actual Usando las variables predefinidas como __PACKAGE__ y __LINE__.

como no quiero obtener el nombre de la subrutina actual:

use strict; 
use warnings; 

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

En el código anterior Quiero obtener el nombre de la subrutina dentro de la función test.

Answer 1

caller es la forma correcta de hacerlo en @eugene pointed out si desea hacer esto dentro de la subrutina.

Si desea que otra parte de su programa pueda identificar el paquete y la información del nombre para un coderef, use Sub::Identify.

Por cierto, mirando a

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

hay algunos puntos importantes a mencionar: En primer lugar, no utilice prototypes menos que esté tratando de imitar órdenes internas. En segundo lugar, no use & cuando invoking a subroutine a menos que necesite específicamente los efectos que proporciona.

Por lo tanto, es mejor que el fragmento escrito como:

sub test 
{ 
    print __LINE__; 
} 
test(); 

Answer 2

utilizar la función caller():

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

Esto le dará el nombre de la subrutina actual, incluyendo su envoltorio (por ejemplo 'main::test'). Los cierres devuelven nombres como 'main::__ANON__' y en eval será '(eval)'.

Answer 3

No existe __SUB__ especial de perl-5.16.

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

foo(); 

En realidad se puede pasar a cualquier referencia sub_fullname subrutina (incluso anónimo):

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

foo();