perl - Perl 的 "bless"到底是做什么的？

Question

我知道有人在 Perl 中的类的“new”方法中使用“bless”关键字:

sub new {
    my $self = bless { };
    return $self;
}    

但是“bless”到底对该哈希引用做了什么？

Answer 1

一般来说，bless 将对象与类关联起来。

package MyClass;
my $object = { };
bless $object, "MyClass";

现在，当您调用 $object 上的方法时，Perl 知道要在哪个包中搜索该方法。

如果省略第二个参数(如您的示例所示)，则使用当前的包/类。

为了清楚起见，您的示例可能会写成如下:

sub new { 
  my $class = shift; 
  my $self = { }; 
  bless $self, $class; 
} 

编辑:参见 kixx很好answer了解更多细节。