perl - Perl 从不同的包访问包常量

Question

我是 Perl 的新手，我现在正在用 Perl 学习 OOP。

有没有一种方法不需要任何额外的库（禁止使用任何额外的库）来访问另一个包中的一个包中的变量？

package Class;

my $CONSTANT = 'foo'; # this doesn't work, neither our $CONSTANT ..

# ...
# class methodes
# ...

package main;

print Class::$CONSTANT ."\n";

Answer 1

你的常量声明是错误的

常量在它们的名字之前没有a $，因为它们不是变量——一个变量（正如名字所暗示的）包含一个可以变化的值。

试试这个（它使用constant模块，但它包含在默认安装中：

use constant CONSTANT => "Foo";

访问类常量

然后，您可以通过以下方式访问它们：

Class::CONSTANT # I suggest NOT using this as 'Class::Constant' is a module name, rename your class to something useful

或者，如果您有$obj以下实例Class：

$obj->CONSTANT;

显示两种访问方法的示例代码

use warnings;
use strict;

package MyClass;
use constant SOME_CONSTANT => 'Foo';
sub new
{
   my $type = shift;                   # The package/type name
   my $self = {};                      # Empty hash
   return bless $self, $type;
}

package main;
print MyClass::SOME_CONSTANT . "\n";   # Prints 'Foo\n'

my $obj = MyClass->new();
print $obj->SOME_CONSTANT;             # Prints 'Foo'

和一个演示。

Answer 2

容易犯错误。将印记放在班级名称前面，例如

print ${Class::CONSTANT} . "\n";
print $Class::CONSTANT . "\n";

此外，可以使用constant包定义常量，例如

use constant MY_CONSTANT => 5;
print MY_CONSTANT();

Answer 3

您必须使用定义变量our。

package Class;

our $CONSTANT = 'foo';

# ...
# class methodes
# ...

package main;

print $Class::CONSTANT ."\n";

关键字用作语法块，因此在此语法块之外无法访问package使用定义的变量。my您还必须将印记放置$在正确的位置。当然，它是可变的，而不是恒定的。