Làm cách nào để biết tôi đang ở trong chương trình con nào?

Question

Có cách nào để lấy tên của chương trình con kèm theo của một đoạn mã perl không? Ví dụ:

sub foo { print where_am_i(); } 

sẽ xuất 'foo'.

Answer 1

Sử dụng caller chức năng:

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