Perl模块知道它安装在哪里吗?

每个perl文件都可以访问该变量 __FILE__ 这告诉它它的完整路径。像这样的事情应该可以做到:

my $DEFAULT_TEMPLATE;
BEGIN {
    $DEFAULT_TEMPLATE = __FILE__;
    $DEFAULT_TEMPLATE =~ s,\.pm$,/default_email.tt,;
}

File::ShareDir

在文件与包名不完全匹配的情况下,使用%INC可能会产生误导。(这是一种反模式,但确实会发生,有时是出于合理的原因。)如果要查找文件,请使用 __FILE__ 代币是你最好的选择。可定位自身的示例模块:

package Foo::Bar;

use Cwd qw(abs_path);
use File::Basename qw(dirname);

sub module_dir { abs_path(dirname(__FILE__)) }

1;

use Foo::Bar;

print Foo::Bar->module_dir, "\n";

你可以用 %INC 如果模块已加载,则散列。例如:

## load the module
use Data::Dumper;

## output full path to Data::Dumper module loaded
print $INC{'Data/Dumper.pm'};

## see which module was loaded (if you have multiple folders with same modules)
print Dumper(\%INC);

perlvar 详情请参阅。

重写以反映我在评论中学到的内容:

• 查找模块的路径

  package FooBar;
  
  use File::Spec;
  sub location  {
  return File::Spec->rel2abs( __FILE__);
  }
  

• 由于模板很可能是可编辑的,甚至可能是通过网络工作的人,我强烈建议将其放入一个目录中,其中包含的“代码”无法执行。

  想象有人打电话: http://your.home.net/cgi-bin/default_email.tt

__FILE__ 令牌以获取当前文件的名称(包括路径)。如果您想知道不同模块(已加载的模块)的路径,请检查 %INC

perlwhere() {
    perl -wle'eval "require $ARGV[0]" or die; ($mod = $ARGV[0]) =~ s|::|/|g; print $INC{"${mod}.pm"}' $1
}

$ perlwhere Test::More
/usr/lib/perl5/5.8.8/Test/More.pm