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.pm中建立/x/y/z/test.config的路径？

感谢，

Answer 1

AFAIK FindBin将显示mymain.pl（和它可能在其他模块中被使用，那么第一次调用会赢）。尝试__FILE__：

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