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

谢谢，

Answer 1

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

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