在 @INC 中找不到 MyApp/Schema.pm

Question

我正在尝试使用 perl 连接到数据库。我尝试按照本教程https://metacpan.org/pod/release/RIBASUSHI/DBIx-Class-0.082840/lib/DBIx/Class.pod 创建一个名为 MyApp 的简单应用程序，正如他们所做的那样，并完全按照他们所做的方式创建文件，但是当我编译 CD.pm 文件时，我收到错误 Can't locate MyApp/Schema.pm在 @INC 中（您可能需要安装 MyApp::Schema 模块）。

程序看起来像在 Atom 中使用包脚本在 ubuntu 上运行代码：

MyApp---
     |  |
     |  Schema--
     |         |
     |          Result-----
     |                |    |
     |       Artist.pm     CD.pm
     |
Schema.pm


#Schema.pm
package MyApp::Schema;
use base qw/DBIx::Class::Schema/;

__PACKAGE__->load_namespaces();

1;
#CD.pm
package MyApp::Schema::Result::CD;
use base qw/DBIx::Class::Core/;

__PACKAGE__->load_components(qw/InflateColumn::DateTime/);
__PACKAGE__->table('cd');
__PACKAGE__->add_columns(qw/ cdid artistid title year /);
__PACKAGE__->set_primary_key('cdid');
__PACKAGE__->belongs_to(artist => 'MyApp::Schema::Result::Artist', 'artistid');

 1;
#Artist.pm
package MyApp::Schema::Result::Artist;
use base qw/DBIx::Class::Core/;

__PACKAGE__->table('artist');
__PACKAGE__->add_columns(qw/ artistid name /);
__PACKAGE__->set_primary_key('artistid');
__PACKAGE__->has_many(cds => 'MyApp::Schema::Result::CD', 'artistid');

1;

Answer 1

我是为网页创建后端的新手，所以我不知道自己在做什么

如果是这样，那么我真的认为构建一个使用 DBIx::Class 的应用程序对于您的第一次尝试来说有点牵强。我建议先花一些时间来掌握使用 Perl 编写命令行程序。

但这可能是不可能的。在这种情况下，请继续阅读...

您没有向我们提供您收到的完整错误消息（并且，为了将来参考，这将非常有用）但我怀疑它会继续告诉您当前位于的目录列表@INC.

当 Perl 加载一个模块时，它需要知道在哪里可以找到包含该模块的文件。它通过使用一个名为@INC 的特殊数组变量来做到这一点。 @INC 包含 Perl 应该搜索以查找模块代码的所有目录的列表。在设置 Perl 安装时，有许多目录被“嵌入”到您的 Perl 安装中，但有多种方法可以添加到该列表中。

您的错误消息将为您提供@INC 中的当前目录列表，但您也可以从这个简单的命令行 Perl 程序中获取它：

perl -E'say for @INC'

该列表包含我之前提到的“烘焙”目录。这些是 Perl 期望找到模块的标准目录。但是作为应用程序一部分的模块（MyApp::Schema 模块）不存储在这些目录中。它们与您的程序位于同一目录树中。

在旧版本的 Perl 中，当前目录会自动添加到 @INC（您会在我上面提到的程序的输出中看到“.”），但这被视为安全风险，因此被删除（这就是为什么 ikegami 将您指向this answer)。

所以我们需要将当前目录添加到@INC。我们可以使用lib pragma 将目录添加到@INC。最简单的选择是将此行添加到程序顶部附近（use MyApp::Schema 行之前）：

[注意：出于非常好的原因，当前目录已从默认的@INC 中删除。下面的代码行只是取消了 Perl 开发团队通过删除它所做的出色工作。正如我上面所说，这当然是最简单的选择，但也是一个非常愚蠢的想法。]

# Don't do this. Use the next code block instead.
use lib '.';

但是，如果您从程序所在目录以外的地方运行程序，这将不起作用。所以更稳健的解决方案是：

use FindBin '$RealBin';
use lib $RealBin;

如果这不起作用，则可能是您将库放在不同的目录结构中，我们需要更多信息。