perl - 如何将 Perl 模块设置为 "use"位于不在 @INC 的目录中？

Question

我的脚本的父目录中有一个模块，我想“使用”它。

如果我这样做

use '../Foo.pm';

我遇到语法错误。

我尝试这样做:

push @INC, '..';
use EPMS;

并且..显然没有出现在@INC

我要疯了!这里出了什么问题？

Answer 1

use 发生在编译时，所以这可以工作:

BEGIN {push @INC, '..'}
use EPMS;

但更好的解决方案是使用 lib，这是编写上述内容的更好方式:

use lib '..';
use EPMS;

但是，如果您从不同的目录运行，建议使用 FindBin:

use FindBin;                     # locate this script
use lib "$FindBin::RealBin/..";  # use the parent directory
use EPMS;