在其他Perl模块中使用Perl自定义模块的正确方法

Question

我在我的脚本中使用自定义模块，并且必须将它们存储在Perl lib目录之外。 所以在Perl脚本（ *.pl ）中我使用以下块将它们包含在@INC ：

BEGIN {
  use FindBin qw($Bin);
  push @INC, "$Bin/../ModulesFolder1";
  push @INC, "$Bin/../ModulesFolder2";
}

但我还必须在我的其他Perl模块（ *.pm ）中使用模块，并且我理解FindBin仅适用于脚本。 所以我将该块更改为：

BEGIN {
  push @INC, catdir( dirname( $INC{'ThisModule.pm'} ), qw( .. ModulesFolder1 ) );
  push @INC, catdir( dirname( $INC{'ThisModule.pm'} ), qw( .. ModulesFolder2 ) );
}

它有效，但有一点问题。 我使用EPIC插件在Eclipse中编码，并且“如果你在BEGIN块中有某些东西会导致编译器过早中止，它就不会向EPIC报告语法错误” ，这样我就可以放松Perl语法检查模块。
因此，使用FindBin （在脚本中），我不必在BEGIN{}块中使用任何函数（如catdir ），并且以下代码的语法检查正确进行。 此外，我不想更改任何环境变量（如PERL5LIB ），这样我就可以在同事的机器上使用脚本而无需任何额外的准备工作。

在其他模块中使用自定义Perl模块的正确方法是什么，而不是同时干扰EPIC语法检查？ 或者我甚至应该以其他方式包含模块？

Answer 1

我非常不同意在模块中修改@INC 。 它会引起各种头痛。 让脚本（甚至通过PERL5LIB环境变量调用进程）正确设置@INC 。

script.pl ：

use FindBin qw( $RealBin );
use lib
   "$RealBin/../ModulesFolder1",
   "$RealBin/../ModulesFolder2";

use ModuleInFolder1;

ModuleInFolder1.pm ：

use ModuleInFolder2;  # Works fine.

---

至于EPIC，请执行以下操作：

1. 右键单击该项目。
2. 属性
3. Perl包含路径
4. ${project_loc}/ModulesFolder1 ，添加到列表
5. ${project_loc}/ModulesFolder2 ，添加到列表

（我的意思是14个字符${project_loc} 。这对EPIC来说意味着什么。即使你移动项目它也会继续工作。）

---

PS - $RealBin比$Bin因为它允许你使用符号链接到你的脚本。

PS - __FILE__比$INC{'ThisModule.pm'}更合适。

Answer 2

不确定Eclipse，但你可以使用lib （可能无法工作，它在编译时更改@INC ）或将环境变量PERL5LIB设置为指向库文件夹。

Answer 3

设置PERL5LIB环境变量。 每次使用或要求时，Perl都会检查其中列出的所有目录。

或者，将所有必需的自定义模块放在脚本的目录下，这样就可以use lib相对路径。 它还允许您快速创建一个包，通过从顶级目录递归打包将所有内容传输到另一台PC。

Answer 4

另一个解决方案（来自我的同事） - 在模块中进行的更改：

sub path_to_current_module() {
  my $package_name = __PACKAGE__ .'.pm';
  $package_name =~ s#::#/#g;

  for my $path ( @INC ) {
    # print "\$path == '$path'\n";
    if ( -e catfile( $path, $package_name ) ) {
      return $path;
    }
  }

  confess;
}

BEGIN {
  my $path_to_current_module = path_to_current_module();
  push @INC, catdir( $path_to_current_module, qw( .. ModulesFolder1 ) );
  push @INC, catdir( $path_to_current_module, qw( .. ModulesFolder2 ) );
}

似乎旧方法（在问题中描述）Perl无法在@INC找到当前模块名称 - 这就是为什么perl -c被BEGIN块内部的错误中断。 并且所描述的子帮助它确定当前模块的真实路径。 此外，它不依赖于当前文件名，可以复制到另一个模块。