Perlで自分自身の関数名を知るには？

質問

Perlで、自分自身の関数名を知る方法はあるでしょうか？

sub testfunc { print FUNCNAME }
&testfunc;

例えば、上記のようなコードを実行すると、testfunc という出力が得られるような FUNCNAME のような関数やモジュールがあるか、と言い換えてもいいかもしれません。

以上よろしくお願いします。

回答No.1

moon_piyo · ベストアンサー

こんにちは
caller ではどうでしょうか
パッケージ名(たとえばmain::)がついちゃいますが

sub testfunc{print +(caller 0)[3]};
&testfunc;

お礼

なるほど、知りませんでした。ありがとうございました。