我如何告诉 perl 模块的路径？

Question

我在 Perl 脚本中使用 Perl 模块文件：

printtab.pl

use Table;

Table.pm 与 printtab.pl 位于同一目录中，因此只要我从目录中执行 printtab，它就可以正常执行。

但是，如果我从其他地方执行它，例如使用 cronjob，我会收到一条错误，指出在 @INC 中找不到该模块。

解决这个问题的正确方法是什么？

我尝试过

push @INC, "/path/Table.pm";

，但不起作用。 你能告诉我为什么吗？

我发现use lib并且它工作正常

use lib "/path";

在这种情况下use lib是最好的方法吗？

Answer 1

使用 lib 是一个不错的选择。但是，如果您将模块放置在与程序相同的目录中（或者放置在与包含程序的目录相关的子目录中），则可以使用 use FindBin; ，例如：

use FindBin;
use lib "$FindBin::Bin/../lib";

Answer 2

push @INC, "/path/Table.pm";

不起作用，因为 @INC 应该是目录列表，而不是模块的完整路径。所以如果你这样做：

push @INC, "/path";

它应该有效。

话虽如此，use lib "/path";也是一个不错的选择。

根据程序的安装目录结构，使用 FindBin 确定脚本的真实位置可能有助于构建模块的正确路径。

Answer 3

一个巧妙的小技巧：

#! /usr/bin/env perl

use strict;
use warnings;

BEGIN {
    our $moduleIsMissing;
    eval {
        require My::Module;
    };

    if ($@) {
        $moduleIsMissing = 1;
    }
}

if ($main::moduleIsMissing) {
    print "Module is missing. I've got to do something about it!\n"
}
else {
    print "Module is there. I'm fine!\n";
}

我对 $main::moduleIsMissing 事情不满意，但我还没有找到解决方法。

如果 My::Module 可用，则它已加载并且一切正常。否则，$main::moduleIsMissing 标志被设置。这允许您测试模块是否已加载，如果没有加载，则采取规避操作。例如，如果模块 Term::Cap 可用，您的程序在打印文本时将使用粗体，但如果不可用，则将简单地打印出没有粗体的文本。

---

回到问题：这样做要好得多：

use lib "MyDir";

而不是 @INC。

use lib 在编译时包含该目录。因此，如果我在目录“MyDir”中有一个模块“Foo::Bar”，我可以这样做：

use lib qw(MyDir);
use Foo::Bar;

没有 Perl 抱怨。如果我这样做：

push (@INC, qw(MyDir));
use Foo::Bar;;

Perl 会抱怨它找不到我的模块。