为什么需要或成功使用后无法调用模块的功能？

Question

我有一个名为genbank.pm 的Perl 模块文件，它有一个子程序new；这个 Perl 模块没有使用Exporter，也没有定义@EXPORT 或@EXPORT_OK。在同一个目录下我有一个名为test.pl的Perl文件，test.pl的代码是：

require 'genbank.pm';
use strict;
our $result = genbank::new();

当我使用 Komodo 运行它时，它会报告：

Undefined subroutine &genbank::new called at /home/mrs/scripts/test.pl line 3;

在我更改代码后

our $result = genbank::new();

到

our $result = genbank->new();

它说：

Can't locate object method "new" via package "genbank"(perhaps you forgot to load "genbank"?) at /home/mrs/scripts/test.pl line 3.

Answer 1

您没有提供足够的信息来完全确定该问题，但最可能的原因是 new 子位于 genbank 以外的包中。

当您尝试调用genbank::new（或genbank->new）时，Perl 在包genbank 中查找名为new 的子，不在文件genbank.pm 中。按照惯例，文件genbank.pm 将包含一个名为genbank 的包，但这纯粹是为了约定和方便。它不由语言强制执行，并且文件名和包名之间绝对没有自动连接。

要了解您的潜艇被放置在哪个包中，请查看genbank.pm 中是否有任何行显示package xxxx;。 sub new 行之前出现的最后一个将告诉您new 所属的包。如果定义前没有package 语句，则默认在包main 中。

(如果您负责genbank.pm源代码，我还建议将package genbank;添加到文件中或重命名文件以匹配它实际包含的包，以避免在未来。）

根据 OP 的评论进行编辑：

由于模块当前以package MRS::Scripts::genbank 开头，那么这就是创建new 子的包。调用它有两种选择：

1. 将其称为MRS::Scripts::genbank::new（或者，如果它实际上是一个对象构造函数，则称为MRS::Scripts::genbank->new）。如果你想使用包名来调用它，那么你必须使用正确的包名。

2. 从MRS::Scripts::genbank 包中导出它并修改调用脚本以从该包中导入符号（将genbank.pm 移动到MRS/Scripts/genbank.pm 并将require 更改为use MRS::Scripts::genbank; 或 通过在require 之后添加MRS::Scripts::genbank->import;），然后将其称为new()。虽然这将在您的问题的有限范围内起作用，但我建议强烈反对它，因为一旦您对另一个包含 sub new 的模块重复此操作，它就会崩溃，因为可以不要同时在同一个地方成为两个news。

解决此问题的最简单方法是将genbank.pm 移动到MRS/Scripts/genbank.pm，将require 更改为require MRS::Scripts::genbank.pm（或use；如果您不导出任何内容，它们是等效的），然后将子称为MRS::Scripts::genbank::new 或MRS::Scripts::genbank->new。这种方法将使文件名和包名彼此同步，这将使将来需要维护代码的人（可能是你......）的生活更轻松。