perl获取模块内部模块的路径？

Question

我有一个perl模块/x/y/z/test.pm。在这个模块中，我想读取一个配置文件/x/y/z/test.config。然而，我在/a/b/c/mymain.pl包括了我的模块。如何让/x/y/z/在/x/y/z/test.config中为/x/y/z/test.pm构建路径？

谢谢，

Answer 1

AFAIK FindBin将显示mymain.pl（它可能已在其他模块中使用，然后第一次调用将获胜）。试试__FILE__：

my $path = __FILE__;
$path =~ s/pm$/config/;