Perl bless用法及代碼示例

描述

這個函數告訴 REF 引用的實體它現在是 CLASSNAME 包中的一個對象，或者如果省略 CLASSNAME 則是當前包。推薦使用 two-argument 形式的祝福。

用法

以下是此函數的簡單語法 âˆ'

bless REF, CLASSNAME

bless REF

返回值

此函數返回對被祝福為 CLASSNAME 的對象的引用。

示例

以下是顯示其基本用法的示例代碼，對象引用是通過祝福對包的類的引用來創建的

#!/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;
}