在 Perl 中找不到导出的子例程

Question

我有一个名为Utilities.pm 的模块。它导出一个名为dummy_method 的子例程。

package Foo::Utilities;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;

@ISA = qw(Exporter);
@EXPORT = qw(dummy_method);

sub dummy_method {
  # do things
}

我有一个使用 dummy_method 子例程的 Perl 脚本：

use strict;
use warnings;

use Foo::Utilities qw('dummy_method');

my $foo = Foo::Utilities::dummy_method("foo");
print("$foo\n");

执行该脚本会引发导出错误：

Foo::Utilities 模块不导出“dummy_method”
在 /home/me/foo.pl 第 3 行出现导入错误后无法继续
BEGIN 失败——编译在 /home/me/foo.pl 第 3 行中止。

我很困惑，因为我用@EXPORT = qw(dummy_method); 明确地导出了那个子例程。如何在另一个脚本中使用dummy_method？

Answer 1

有些人痴迷于将 qw 用于导入列表，即使只有一个元素。我认为这让其他人认为这是一项要求，而这只是列出清单的一种方式。

use Foo::Utilities qw('dummy_method');

说要导入一个名为'dummy_method' 的方法，而不是dummy_method，就像print qw('dummy_method') 打印'dummy_method'，而不是dummy_method。

试试吧：

use Foo::Utilities 'dummy_method';

或者，如果你必须：

use Foo::Utilities qw(dummy_method);

虽然您默认导出它，但您可以这样做：

use Foo::Utilities;

或者，由于您将其称为 Foo::Utilities::dummy_method，因此默认情况下甚至不导出它：

use Foo::Utilities ();

Answer 2

您编写的代码经过ysth 建议的修改后可以正常工作。我能想到的唯一剩下的可能性是您错误地命名或定位了您的模块

use Foo::Utilities 'dummy_method'

将加载一个名为Foo/Utilities.pm 的文件，其中Foo 目录位于@INC 中的路径之一中。省略必须在模块路径中的初始目录是一个常见错误，并且您确实说您的模块仅称为Utilities.pm

还必须有一个行为不同的Foo/Utilities.pm，否则use 语句即使找不到文件也会失败

我已经用更现代的 Perl 编写了您的代码。这也有效

Foo/Utilities.pm

package Foo::Utilities;

use strict;
use warnings 'all';

use Exporter 'import';

our @EXPORT = qw(dummy_method);

sub dummy_method {
  print "dummy_method()\n";
  'do things';
}

main.pl

use strict;
use warnings;

use Foo::Utilities 'dummy_method';

my $foo = dummy_method('foo');

print("$foo\n");

不再需要使用vars，从Perl v5.8.7 开始导入 Exporter 中的import 方法（而不是继承它）会更好