如何访问模块根安装目录中的子目录（t、脚本）？

Question

模块 Foo::Bar 已安装在 @INC 中的某个位置。

除了递归地检查 @INC 中的 Foo、Bar、scripts 或 t 之外>，有没有办法从模块本身访问这些目录？

例如，我想从 Foo/Bar.pm 调用 lib/scripts/findmeifyoucan.pl 中的特定脚本。

Answer 1

您可以通过使用 %INC 来查找相关代码所在的位置，从而找到它相对于相关代码的位置：

package Foo::Bar;
# this code lives in ...something.../lib/Foo/Bar.pm

package Unrelated;

use File::Spec;
use Foo::Bar;

my $filename = 'Foo/Bar.pm';
(my $libpath = $INC{$filename}) =~ s#/\Q$filename\E$##g; ## strip / and filename
my $script = File::Spec->catfile($libpath, qw(scripts findmeifyoucan.pl));