如何判断我在哪个子程序？

Question

有没有办法获得一段Perl代码的封闭子例程的名称？ 例如：

sub foo { print where_am_i(); } 

将输出'foo'。

Answer 1

使用caller功能：

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