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

我正在用Perl编写一个带有几个模块的应用程序.我想写一些从任何地方都可以看到的全局常量,如下所示:

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

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

我正在使用最新的ActivePerl.

查看Exporter和perlmod手册页.

这段代码应该完全符合您的要求.将所有荣誉发送给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__."::"};
}

{ package Foo;
our $global = 42; }

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

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

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