日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

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

新聞中心

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

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

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

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

1、Perl方法

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

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

 2、Perl方法的輸出

如果你現(xiàn)在想引用Cocoa.pm包，將會(huì)得到編譯錯(cuò)誤說未找到Perl方法，這是因?yàn)镃ocoa.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ù)組實(shí)現(xiàn)的。@ISA數(shù)組不需要在任何包中定義，然而，一旦它被定義，Perl就把它看作目錄名的特殊數(shù)組。它與@INC數(shù)組類似，@INC是包含文件的尋找路徑。@ISA數(shù)組含有類(包)名，當(dāng)一個(gè)Perl方法在當(dāng)前包中未找到時(shí)就到@ISA中的包去尋找。@ISA中還含有當(dāng)前類繼承的基類名。
類中調(diào)用的所有Perl方法必須屬于同一個(gè)類或@ISA數(shù)組定義的基類。如果一個(gè)Perl方法在@ISA數(shù)組中未找到，Perl就到AUTOLOAD()子程序中尋找，這個(gè)可選的子程序在當(dāng)前包中用sub定義。若使用AUTOLOAD子程序，必須用useAutoload;語句調(diào)用autoload.pm包。AUTOLOAD子程序嘗試從已安裝的Perl庫中裝載調(diào)用的Perl方法。如果AUTOLOAD也失敗了，Perl再到UNIVERSAL類做***一次嘗試，如果仍失敗，Perl就生成關(guān)于該無法解析函數(shù)的錯(cuò)誤。

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

調(diào)用一個(gè)對象的Perl方法有兩種Perl方法，一是通過該象的引用（虛P(yáng)erl方法），一是直接使用類名（靜態(tài)Perl方法）。代碼如下：

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

當(dāng)前文章：Perl面向?qū)ο缶幊讨蠵erl方法概述
當(dāng)前網(wǎng)址：http://www.5511xx.com/article/dpjcoje.html