Perl 包文件找不到

Question

这个问题在这里已经有了答案:





Doesn't Perl include current directory in @INC by default?

(3 个回答)


3年前关闭。




我已经在 perl 中集成了示例函数。一切正常，但我无法连接 Perl 模块包文件(.pm)

请查看以下代码

样本.pl

#!/usr/bin/perl

 use strict;
 use warnings;
 use Sample;
print Sample->test_function();

sample .pm

 package Sample;

  sub  test_function
  {

  return 'Welcome';

  }

运行 sample.pl 文件后一次。它返回错误 “找不到 Sample.pm” 但包文件在同一文件夹中可用。

Answer 1

问题的原因是找不到安装的 perl 模块位置。将以下行添加您的 sample.pl 文件

 use strict;
 use warnings;

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


 use Sample;
 print Sample->test_function();