本地 Perl DBI 模块，找不到对象方法“连接”

Question

我已经通过cpan 安装了DBI 模块。 CPAN 已配置为使用本地目录，所以我有~/perl5 和~/.cpan 目录。该模块显然在~/.cpan/build/DBI-1.642-0 中，实际上确实有DBI.pm 文件。

但是，当我执行以下命令作为测试时，该命令提示没有“连接”对象：

$ perl -e 'use lib qw( .cpan/build/DBI-1.642-0/ ); DBI->connect("dbi:SQLite:dbname=foo.sqlite","","");'
Can't locate object method "connect" via package "DBI" (perhaps you forgot to load "DBI"?) at -e line 1.

环境：基于 Debian 的发行版，perl 5.26.2。

注意可能的重复：

• Can't locate object method via package subclassing DBI 询问模块子类化，而不是我在做什么

---

附录：从 cmets 的讨论中可以看出，很多用户只关注use DBI 声明。正如我在the comments 中提到的：

整个目标是利用通过 cpan 安装的 DBI 模块。在安装 DBD::SQLite 之前，使用 lib 和使用 DBI 都没有给出可行的解决方案。所以单独使用 DBI 的建议没有用。

请注意，在提出问题之前，我已经尝试了 both use DBI 和 use lib qw() 方法。 use DBI 在我的回答中提到，如果不安装 DBD::SQLite 模块，它本身是无效的。

Answer 1

从命令行脚本转换为实际程序，您的代码如下所示：

use lib qw( .cpan/build/DBI-1.642-0/ );

DBI->connect("dbi:SQLite:dbname=foo.sqlite","","");

你得到的错误信息是：

无法在 -e 第 1 行通过包“DBI”找到对象方法“connect”（也许您忘记加载“DBI”？）。

这个错误很明显。

（也许您忘记加载“DBI”？）

这里的问题是您缺少实际加载 DBI 模块的代码行。你需要添加这个：

use DBI;

您的use lib qw( .cpan/build/DBI-1.642-0/ ) 行很奇怪。您要求 Perl 从安装期间使用的临时构建目录加载模块。这根本不是您想要使用的版本。当cpan 完成工作后，您将在标准 Perl 库目录中安装一个 DBI 版本，您无需任何use lib 代码即可访问。

我还要补充一点，如果您使用的是系统安装版本的 Perl，则无需使用cpan 来安装最流行的模块。您可以使用您的发行版的预构建软件包存储库。例如 apt get install libdbi-perl（在 Debian 和类似平台上）或 dnf install perl-DBI（在 Red Hat 上）。

在您的回答中，您默默地添加了缺少的 use DBI 语句，并且您声称安装 DBD::SQLite 解决了您的问题。这可能解决了您遇到的另一个问题，但并没有解决您原来问题中的问题。

Answer 2

perl -e 的问题已经解决，因为显然没有安装 SQLite。我必须打开cpan shell 并运行install DBD::SQLite。现在，命令行可以正常工作了：

$ $ perl -e 'use DBI; my $db = DBI->connect( "dbi:SQLite:dbname=foo.sqlite","","" );my $stmt = qq(CREATE TABLE foo(a int, b text); ); $db->do($stmt)'
$ sqlite3 foo.sqlite
SQLite version 3.23.1 2018-04-10 17:39:29
Enter ".help" for usage hints.
sqlite> .tables
foo
sqlite> .schema foo
CREATE TABLE foo(a int, b text);
sqlite> 

模块本身已经安装在~/perl5/lib/perl5/x86_64-linux-gnu-thread-multi/DBD/目录下。

---

基于Berserk's answer，以下也适用于显式调用：

$ perl -e 'use lib qw(  /home/user/perl5/x86_64-linux-gnu-thread-multi/DBD ); use DBI; my $db = DBI->connect( "dbi:SQLite:dbname=foo.sqlite","","" );my $stmt = qq(CREATE TABLE foo(a int, b text); ); $db->do($stmt)'

为确保这明确使用来自use lib qw() 的库声明，我还在一些测试中清除了@inc 数组。