Perl-从主脚本中的其他目录获取模块的ABS路径

Question

我创建了一个简单的perl脚本，该脚本分为2个文件main.pl和content.pm主脚本位于Project目录中，而content.pm （模块）位于Project/utils目录中。 现在，我想在main.pl使用content.pm ，我做了这样的事情来使用此模块：

use Cwd;
use lib Cwd::abs_path(getcwd()."/utils");
use utils::content;

但是，如果我这样做，就会收到错误消息：

Cant locate utils/content.pm in 
@INC (you may need to install the utils::content module) 
@INC contains: /Perl/utils /etc/perl /usr/local/lib/x86_64-linux-gnu/perl/5.24.1 ...) 
at ./main.pl line 10.

是否可以使用content.pm正确运行此main.pl脚本？ 也许我不应该使用getcwd() （我认为它使用的是工作目录而不是abs_path，但是我不确定）。

Answer 1

我认为您正在寻找的是FindBin 。

特别：

use FindBin qw( );
use lib $FindBin::RealBin."/utils"; 
use content;