Perl語言中的Perl類、對象、包的概念

本篇內容介紹了“Perl語言中的Perl類、對象、包的概念”的有關知識，在實際案例的操作過程中，不少人都會遇到這樣的困境，接下來就讓小編帶領大家學習一下如何處理這些情況吧！希望大家仔細閱讀，能夠學有所成！

Perl類、對象、包概念解析

Perl類與對象

◆Perl類是一個Perl包，其中含提供對象方法的Perl類。
◆方法是一個Perl子程序，Perl類名是其***個參數。
◆對象是對Perl類中數據項的引用。

◆首先，創建一個名為Cocoa.pm的包文件(擴展名pm是包的缺省擴展名，意為PerlModule)。一個模塊就是一個包，一個包就是一個Perl類。在做其它事之前，先加入1;”這樣一行，當你增加其它行時，記住保留“1;”為***一行。這是Perl包的必需條件，否則該包就不會被Perl處理。下面是該文件的基本結構。

包

packageCocoa;
requireExporter;
@ISA=qw(Exporter);
@EXPORT=qw(setImports,declareMain,closeMain);
#這兩行包含上Exporter.pm模塊，并把ExporterPerl類名加入@ISA數組以供查找。接下來把你自己的Perl類方法列在@EXPORT數組中就可以了。例如想輸出方法closeMain和declareMain，語句如下：@EXPORT=qw(declareMain,closeMain);

構造函數

構造函數是Perl類的子程序，它返回與Perl類名相關的一個引用。將Perl類名與引用相結合稱為“祝福”一個對象，因為建立該結合的函數名為bless()，其語法為：
#blessYeReference[,classname]
#YeReference是對被“祝福”的對象的引用，classname是可選項，指定對象獲取方法的包名用于繼承其他Perl類，其缺省值為當前包名。
創建一個構建函數的方法為返回已與該Perl類結合的內部結構的引用，如：構造函數

subnew{  my$this={};#Createananonymoushash,and#selfpointstoit.  bless$this;#ConnectthehashtothepackageCocoa.bless$this,$parentClass  return$this;#Returnthereferencetothehash.  }

{}創建一個對不含鍵/值對的哈希表（即關聯數組）的引用，返回值被賦給局域變量$this。函數bless()取出該引用，告訴對象它引用的是Cocoa，***返回該引用。函數的返回值現在指向這個匿名哈希表。
從new()函數返回后，$this引用被銷毀，但調用函數保存了對該哈希表的引用，因此該哈希表的引用數不會為零，從而使Perl在內存中保存該哈希表。

Perl類的調用

1#!/usr/bin/perl  2push(@INC,'pwd');  3useCocoa;  4$cup=newCocoa;#或者$cup=cocoa->new();或$cup=Cocoa::new();

包的構造函數

subnew{  my$type=shift;  my%parm=@_;  my$this=[];  $this->[0]=$parm{'Name'};  $this->[1]=$parm{'x'};  $this->[2]=$parm{'y'};  bless$this,$type;  }

新建對象：

$mug=Cocoa::new('Name'=>'top','x'=>10,'y'=>20);
操作符=>與逗號操作服功能相同，但=>可讀性好。訪問方法如下：
print"Name=$mug->{'Name'}\n";
print"x=$mug->{'x'}\n";
print"y=$mug->{'y'}\n";

Perl類靜態方法：

1.subnameLister{  2.my$this=shift;#構造函數即靜態方法。虛方法通常首先把***個參數shift到變量self或this中，然后將該值作普通的引用使用  3.my($keys,$value);  4.while(($key,$value)=each(%$this)){  5.print"\t$keyis$value.\n";  6.}  7.}

“Perl語言中的Perl類、對象、包的概念”的內容就介紹到這里了，感謝大家的閱讀。如果想了解更多行業相關的知識可以關注億速云網站，小編將為大家輸出更多高質量的實用文章！