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

Question

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

sub foo { print where_am_i(); }

将输出'foo'.

Answer 1

使用调用函数:

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