日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務時間:8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
Perl面向?qū)ο缶幊讨蠵erl方法概述

本文和大家重點討論一下Perl面向?qū)ο缶幊讨蠵erl方法的概念,Perl方法定義不提供任何特殊語法,但規(guī)定Perl方法的***個參數(shù)為對象或其被引用的包。Perl有兩種Perl方法:靜態(tài)Perl方法和虛方法。

成都創(chuàng)新互聯(lián)主要從事網(wǎng)站建設、網(wǎng)站制作、網(wǎng)頁設計、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務。立足成都服務琿春,十年網(wǎng)站建設經(jīng)驗,價格優(yōu)惠、服務專業(yè),歡迎來電咨詢建站服務:18980820575

Perl面向?qū)ο缶幊?Perl方法

1、Perl方法

Perl類的Perl方法只不過是一個Perl子程序而已,也即通常所說的成員函數(shù)。Perl方法定義不提供任何特殊語法,但規(guī)定Perl方法的***個參數(shù)為對象或其被引用的包。Perl有兩種Perl方法:靜態(tài)Perl方法和虛Perl方法。
靜態(tài)Perl方法***個參數(shù)為類名,虛方法***個參數(shù)為對象的引用。Perl方法處理***個參數(shù)的方式?jīng)Q定了它是靜態(tài)的還是虛的。靜態(tài)Perl方法一般忽略掉***個參數(shù),因為它們已經(jīng)知道自己在哪個類了,構(gòu)造函數(shù)即靜態(tài)Perl方法。虛方法通常首先把***個參數(shù)shift到變量self或this中,然后將該值作普通的引用使用。如:

 
 
 
  1. 1.subnameLister{
  2. 2.my$this=shift;
  3. 3.my($keys,$value);
  4. 4.while(($key,$value)=each(%$this)){
  5. 5.print"\t$keyis$value.\n";
  6. 6.}
  7. 7.}

 2、Perl方法的輸出

如果你現(xiàn)在想引用Cocoa.pm包,將會得到編譯錯誤說未找到Perl方法,這是因為Cocoa.pm的Perl方法還沒有輸出。輸出Perl方法需要Exporter模塊,在包的開始部分加上下列兩行:
requireExporter;
@ISA=qw(Exporter);
這兩行包含上Exporter.pm模塊,并把Exporter類名加入@ISA數(shù)組以供查找。接下來把你自己的類Perl方法列在@EXPORT數(shù)組中就可以了。例如想輸出Perl方法closeMain和declareMain,語句如下:
@EXPORT=qw(declareMain,closeMain);

Perl類的繼承是通過@ISA數(shù)組實現(xiàn)的。@ISA數(shù)組不需要在任何包中定義,然而,一旦它被定義,Perl就把它看作目錄名的特殊數(shù)組。它與@INC數(shù)組類似,@INC是包含文件的尋找路徑。@ISA數(shù)組含有類(包)名,當一個Perl方法在當前包中未找到時就到@ISA中的包去尋找。@ISA中還含有當前類繼承的基類名。
類中調(diào)用的所有Perl方法必須屬于同一個類或@ISA數(shù)組定義的基類。如果一個Perl方法在@ISA數(shù)組中未找到,Perl就到AUTOLOAD()子程序中尋找,這個可選的子程序在當前包中用sub定義。若使用AUTOLOAD子程序,必須用useAutoload;語句調(diào)用autoload.pm包。AUTOLOAD子程序嘗試從已安裝的Perl庫中裝載調(diào)用的Perl方法。如果AUTOLOAD也失敗了,Perl再到UNIVERSAL類做***一次嘗試,如果仍失敗,Perl就生成關(guān)于該無法解析函數(shù)的錯誤。

3、Perl方法的調(diào)用

調(diào)用一個對象的Perl方法有兩種Perl方法,一是通過該象的引用(虛Perl方法),一是直接使用類名(靜態(tài)Perl方法)。代碼如下:

 
 
 
  1. packageCocoa;
  2. requireExporter;
  3. @ISA=qw(Exporter);
  4. @EXPORT=qw(setImports,declareMain,closeMain);
  5. #
  6. #ThisroutinecreatesthereferencesforimportsinJavafunctions
  7. #
  8. subsetImports{
  9. my$class=shift@_;
  10. my@names=@_;
  11. foreach(@names){
  12. print"import".$_.";\n";
  13. }
  14. }
  15. #
  16. #ThisroutinedeclaresthemainfunctioninaJavascript
  17. #
  18. subdeclareMain{
  19. my$class=shift@_;
  20. my($name,$extends,$implements)=@_;
  21. print"\npublicclass$name";
  22. if($extends){
  23. print"extends".$extends;
  24. }
  25. if($implements){
  26. print"implements".$implements;
  27. }
  28. print"{\n";
  29. }
  30. #
  31. #ThisroutinedeclaresthemainfunctioninaJavascript
  32. #
  33. subcloseMain{
  34. print"}\n";
  35. }
  36. #
  37. #Thissubroutinecreatestheheaderforthefile.
  38. #
  39. subnew{
  40. my$this={};
  41. print"\n/*\n**CreatedbyCocoa.pm\n**Useatownrisk\n*/\n";
  42. bless$this;
  43. return$this;
  44. }

當前名稱:Perl面向?qū)ο缶幊讨蠵erl方法概述
本文來源:http://www.dlmjj.cn/article/dpjcoje.html