我怎么知道我在哪个子程序？

Question

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

sub foo { print where_am_i(); }

将输出'foo'。

Answer 1

使用caller功能：

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