Perl 中的 bless函数

描述

此函数告诉REF引用的实体,它现在是CLASSNAME包中的对象,如果省略CLASSNAME,则为当前包中的对象。建议使用bless的两个参数形式。

语法

以下是此函数的简单语法-

bless REF, CLASSNAME

bless REF

返回值

该函数返回对祝福到CLASSNAME中的对象的引用。

链接：https://www.learnfk.comhttps://www.learnfk.com/perl/perl-bless.html

来源：LearnFk无涯教程网

例

以下是显示其基本用法的示例代码,通过祝福对包类的引用来创建对象引用-

无涯教程网

#!/usr/bin/perl

package Person;
sub new {
   my $class=shift;
   my $self={
      _firstName => shift,
      _lastName  => shift,
      _ssn       => shift,
   };
   # Print all the values just for clarification.
   print "First Name is $self->{_firstName}\n";
   print "Last Name is $self->{_lastName}\n";
   print "SSN is $self->{_ssn}\n";
   bless $self, $class;
   return $self;
}