callerは、呼び出し元情報を取得する組み込み関数。
caller関数 - 呼び出し元情報を取得する - Perlプログラミング入門ゼミ - Perlでテキスト処理・Linuxサーバー管理・Webシステム開発
func3でcallerを呼ぶ。
callerの戻り値をリストで取ると、1番目がパッケージ名、2番目がファイル名、3番目が呼び出された行番号になる。
(それ以降もあるらしい。)
13行目でfunc3を呼ぶ。
[bg1@dti-vps-srv93 caller]$ vi CustomModule.pm [bg1@dti-vps-srv93 caller]$ vi caller.pl [bg1@dti-vps-srv93 caller]$ perl caller.pl func1 func2 func3 $pkg = main $file = caller.pl $line = 13 [bg1@dti-vps-srv93 caller]$
mainパッケージ、caller.pl、13行目、合ってる。
Sample/perl/caller/caller/src/caller at master · bg1bgst333/Sample · GitHub
