Como posso obter o nome da sub-rotina atual no Perl?
No Perl, podemos obter o nome do pacote atual e o número da linha atual. Usando as variáveis predefinidas como__PACKAGE__
e__LINE__
.
Assim, quero obter o nome da sub-rotina atual:
use strict;
use warnings;
print __PACKAGE__;
sub test()
{
print __LINE__;
}
&test();
No código acima, quero obter o nome da sub-rotina dentro da funçãotest
.