在Perl模块上初始化全局变量（带BEGIN块）包括

我试图从具有

BEGIN

块的Perl模块初始化一个全局变量，但我无法使它工作

这是Perl模块

Package A::B;
our $var;

BEGIN{
  $var ||= "/some/default/path";

  #create/access files/folders in $var
}

这是我的CGI脚本

use A::B;
$A::B::var = "/correct/path";

但是返回了

#错误

，因为$var不是正确的路径

在将正确的路径分配给

$var

之前，正在执行

开始

块。有没有一种方法可以解决这个问题，而不必从

BEGIN

块中删除代码

BEGIN { $A::B::var = "/correct/path" }
use A::B;

这个答案让我不满意，但考虑到A:：B的设计方式，我想不出任何其他方法。理想情况下，一个模块并不取决于谁在使用它或使用频率，但这个模块实际上只能使用一次

---

这个答案让我不满意，但考虑到A:：B的设计方式，我想不出任何其他方法。理想情况下，一个模块并不取决于谁在使用它或使用频率，但这个模块实际上只能使用一次。

这就成功了！非常感谢。我这样做是因为$var确定了一个数据库的位置，这个数据库在不同的系统中可能会有所不同！非常感谢。我这样做是因为$var确定了数据库的位置，不同系统的数据库位置可能不同