perl - 在 Perl 中设置全局变量值

Question

我有一个 perl 模块，它将一些全局变量的值设置为常量。
我需要将这些全局变量的值设置为只有在调用 new() 时才可用的值。

有什么办法可以实现吗？

Answer 1

您使用 our将变量声明为全局变量。然后，如果它们也将其声明为 our，则您可以从同一包中的其他位置访问它。词法范围内的变量。从包外部，您只能使用 package::前缀访问它。

例子:

package Foo;
use strict;
use warnings;

sub new {
    our $bar = $_[1];
    return bless {}, $_[0];
}

sub get_bar {
    our $bar;
    return $bar;
}
1;

在另一个文件中:

use strict;
use warnings;
use Foo;
my $foo = Foo->new('baz');
print "This is baz: ", $foo->get_bar, "\n";
print "So is this: ", $Foo::bar, "\n";