我正在用 Perl 编写一个包含多个模块的应用程序。我想写一些在任何地方都可见的全局常量，像这样：
#Constants.pm
$h0 = 0;
$scale = 20;
然后在几个模块中使用它们而不用main:: 或Constants:: 限定。但是，如果我在多个模块中编写use Constants;，它们只会被导入到一个命名空间中。有没有办法解决这个问题？
我正在使用最新的 ActivePerl。
【问题讨论】：
标签： perl constants activeperl
你可以把这个放在Constants.pm的顶部：
package main;
在这种情况下，您定义的所有变量都将位于 main 命名空间中：
$main::x
或者如果你觉得很勇敢：
package;
在这种情况下，您定义的所有变量都将位于一个空的命名空间中：
$::x
请注意，不鼓励使用没有命名空间的package，并且显然在某些版本的 Perl 中将被弃用。请参阅下面的报价。
引用man perlfunc:
编辑：这个问题也可能有帮助：How do I use constants from a Perl module?
【讨论】：
查看Exporter 和perlmod 手册页。
【讨论】：
不要告诉任何人我告诉过你这个，但是 Perl 的特殊变量是 随处可用。你可能已经注意到这并不 工作：
{ 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等）
但是，如果您曾经在真实代码中执行此操作，那么预计有人会谋杀您 :) 很高兴知道，以防万一你看到别人 这样做。
【讨论】：
你可以像这样使用Exporter：
在常量.pm 中：
#Constants.pm
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw($h0 $scale);
@EXPORT_OK = qw(myfunc);
$h0 = 0;
$scale = 20;
sub myfunc {...}
注意事项：
* &myfunc 中的& @EXPORT 数组中的& 是可选的，建议不要使用。
* 这将默认导出$h0 和$scale，并且只有在明确请求时才导出&myfunc（见下文如何指定客户端模块导入的符号）
然后在导入 Constants.pm 并希望使用 $h0、$scale 或 &myfunc 的模块中添加以下内容以导入 @987654331 中的 所有 符号@ in Constants.pm。
#MyModule.pm
use Constants qw(;
如果您只想导入部分符号，请使用：
#MyModule.pm
use Constants qw($h0);
最后，如果您不想导入任何 Constant.pm 的符号，请使用：
#MyModule.pm
use Constants ();
【讨论】：
这段代码应该完全符合您的要求。将所有荣誉发送至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__."::"};
}
【讨论】：