如何将常量导入 Perl 中的多个模块？

Question

我正在用 Perl 编写一个包含多个模块的应用程序。 我想编写一些在任何地方都可见的全局常量，如下所示：

#Constants.pm
$h0 = 0;
$scale = 20;

然后在多个模块中使用它们，而无需使用 main:: 或 Constants:: 进行限定。 但是，如果我在多个模块中编写 use Constants;，它们只会导入到一个命名空间中。 有没有办法解决？

我正在使用最新的 ActivePerl。

Answer 1

查看 Exporter 和 perlmod man页。

Answer 2

这段代码应该完全符合您的要求。 将所有荣誉发送给 lkundrak。

package Constants;

use base qw/Exporter/;

use constant BOB => 666;
use constant ALICE => 555;

sub import {
    no strict "refs";

    ${[caller]->[0].'::'}{$_} = ${__PACKAGE__."::"}{$_}
        foreach grep { not /^(ISA|isa|BEGIN|import|Dumper)$/ } 
            keys %{__PACKAGE__."::"};
}

Answer 3

不要告诉任何人我告诉过你这个，但是 Perl 的特殊变量是
随处可用。 您可能已经注意到，这并不
work：

{ package Foo;
our $global = 42; }

{ package Bar;
say "global is $global"; }

那是因为 $global 实际上被称为 $Foo::global。 你已经
也可能注意到这个“规则”不适用于诸如
@INC、%ENV、$_ 等。这是因为这些变量始终是
假定位于 main 中。

但实际上，这不仅仅是这些变量。 整个全球
被“强制”进入main。 这意味着你可以写类似的东西
这：

{ package Constants;
  $_{PI} = 3.141592; }

{ package Foo;
  say "pi is $_{PI}"; }

它会起作用的。

（这同样适用于 $ENV、&INC 等）但是，

如果您在真实代码中这样做过，那么就有人会谋杀您
:) 不过，最好知道一下，以防万一你看到其他人
正在做。

Answer 4

您可以将其放在 Constants.pm 的顶部：

package main;

在这种情况下，您定义的所有变量都将位于 main 命名空间中：

$main::x

或者如果您勇敢的话

package;

：在这种情况下，您定义的所有变量都将位于空命名空间中：

$::x

请注意，不鼓励使用没有命名空间的 package，并且在某些版本的 Perl 中显然会被弃用。 请参阅下面的引用。

---

引用man perlfunc：

       package NAMESPACE
       package Declares the compilation unit as being in the given
               namespace.  The scope of the package declaration is
               from the declaration itself through the end of the
               enclosing block, file, or eval (the same as the "my"
               operator).  All further unqualified dynamic identifiers
               will be in this namespace.  A package statement affects
               only dynamic variables--including those you've used
               "local" on--but not lexical variables, which are cre?
               ated with "my".  Typically it would be the first decla?
               ration in a file to be included by the "require" or
               "use" operator.  You can switch into a package in more
               than one place; it merely influences which symbol table
               is used by the compiler for the rest of that block.
               You can refer to variables and filehandles in other
               packages by prefixing the identifier with the package
               name and a double colon:  $Package::Variable.  If the
               package name is null, the "main" package as assumed.
               That is, $::sail is equivalent to $main::sail (as well
               as to $main'sail, still seen in older code).

               If NAMESPACE is omitted, then there is no current pack?
               age, and all identifiers must be fully qualified or
               lexicals.  However, you are strongly advised not to
               make use of this feature. Its use can cause unexpected
               behaviour, even crashing some versions of Perl. It is
               deprecated, and will be removed from a future release.

---

编辑：这个问题也可能有帮助：如何使用 Perl 模块中的常量？

Answer 5

您可以像这样使用 Exporter：

在 Constants.pm 中：

#Constants.pm
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw($h0 $scale);
@EXPORT_OK = qw(myfunc);

$h0 = 0;
$scale = 20;
sub myfunc {...}

注意：
* @EXPORT数组中的&myfunc中的&是可选的，建议您不要使用它。
* 默认情况下，这将导出 $h0 和 $scale，并且仅在明确请求时才导出 &myfunc（请参阅下面如何指定客户端模块导入哪些符号）

然后在导入 Constants.pm 并想要使用 $h0、$scale 或 &myfunc 的模块中添加以下内容以导入Constants.pm 中 @EXPORT 中的所有符号。

#MyModule.pm
use Constants qw(;

如果您只想导入某些符号，请使用：

#MyModule.pm
use Constants qw($h0);

最后，如果您不想导入任何 Constant.pm 符号，请使用：

#MyModule.pm
use Constants ();