解决Perl脚本无法识别当前目录下的其他脚本

 

【问题描述】：

运行的perl脚本中引用了当前目录下的其他脚本，但报错无法定位到引用的脚本，具体信息如下：

Can't locate Grouper.pm in @INC (you may need to install the Grouper module)

 

 

【产生原因】：

出自安全考虑，Perl 5.26版本后@INC不再考虑当前目录，因此无法识别当前目录下引用的脚本

 

【解决方案】：

在运行的脚本插入以下代码

use FindBin 1.51 qw( $RealBin );
use lib $RealBin;

或

use Cwd qw( abs_path );
use File::Basename qw( dirname );
use lib dirname(abs_path($0));