qw(:everything) 在 Perl 的 use 行上起什么作用？

Question

这是一个令人尴尬的问题，但为什么这条线可以工作，而另一条线却不能呢？

工作线路：

use strict;
use warning;
use Wx qw(:everything);
my $dialog = Wx::MessageDialog->new(
    $self,
   "About test\n" .  "Version 0.01\n",
   "About Test",
   wxOK | wxCENTRE
);

非工作线路：

use strict;
use warning;
use Wx;
my $dialog = Wx::MessageDialog->new(
   $self,
   "About test\n" .  "Version 0.01\n",
   "About Test",
   wxOK | wxCENTRE
);

错误消息，来自非工作线路：

Bareword "wxOK" not allowed while "strict subs" in use at test.pl line 123.
Bareword "wxCENTRE" not allowed while "strict subs" in use at test.pl line 123.
BEGIN not safe after errors--compilation aborted at test.pl line 348.

Answer 1

它相当于：

BEGIN {
    require 'Wx';
    Wx->import( ':everything' );
};

该代码会将 Wx 中的 ':everything' 导入到当前命名空间中。我的猜测是，Wx 使用 Exporter，并且在使用 ':everything' 调用时要导入一组内容。

您可以查看Wx 的来源和Exporter 的来源，尝试更深入地理解它。

我错过了你的工作/非工作示例。非工作项不起作用，因为 wxOK 和 wxCENTRE 常量未导入到当前命名空间中。这是使用 Exporter 完成的，如上所述。

Answer 2

qw(:everything)

与 非常相似

(split ' ', ':everything')

所以

use Wx qw(:everything);

与相同

use Wx ':everything';

字符串 :everything 被传递到 Wx 的导出例程 (import)。语义完全取决于模块，但我认为 Wx 将其定义为“导出我可能导出的所有内容”。大多数模块都使用 :ALL 来实现这一点（如果它们提供的话）。

看起来 Wx 不会导出任何东西，除非你要求，所以 wxOK 和 wxCENTRE 不存在于你的命名空间中，除非你告诉 Wx 使用

use Wx qw( wxOK wxCENTRE );

或

use Wx qw( :everything );

导出它们 供将来参考，请包含错误消息等，而不是简单地说某些内容不起作用。