问Perl的“上帝保佑”到底做了什么？

EN

通常，bless将对象与类相关联。

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

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

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

为了清楚起见，您的示例可能如下所示：

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

编辑:有关更多细节，请参阅kixx的good answer。

bless将引用与包关联。

引用是什么并不重要，它可以是散列(最常见的情况)、数组(不常见的情况)、标量(通常表示inside-out object)、正则表达式、子例程或TYPEGLOB (有关有用的示例，请参阅Object Oriented Perl: A Comprehensive Guide to Concepts and Programming Techniques by Damian Conway一书)，甚至可以是对文件或目录句柄的引用(最不常见的情况)。

bless-ing的作用在于，它允许您将特殊语法应用于受祝福的引用。

例如，如果一个有福的引用存储在$obj中(通过bless与包“Class”相关联)，那么$obj->foo(@args)将调用子例程foo，并将引用$obj作为第一个参数传递，随后是其余参数(@args)。子例程应该在"Class“包中定义。如果“类”包中没有子例程foo，将搜索其他包的列表(取自包“类”中的数组@ISA )，并调用找到的第一个子例程foo。

简而言之:它将散列标记为附加到当前包名称空间(以便该包提供其类实现)。