本文和大家重點(diǎn)討論一下Perl子程序的概念，Perl子程序即執(zhí)行一個(gè)特殊任務(wù)的一段分離的代碼，它可以使減少重復(fù)代碼且使程序易讀。

成都創(chuàng)新互聯(lián)是專業(yè)的藍(lán)田網(wǎng)站建設(shè)公司，藍(lán)田接單;提供網(wǎng)站建設(shè)、網(wǎng)站制作,網(wǎng)頁設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行藍(lán)田網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來合作!

Perl子程序

一、定義

Perl子程序即執(zhí)行一個(gè)特殊任務(wù)的一段分離的代碼，它可以使減少重復(fù)代碼且使程序易讀。Perl中，Perl子程序可以出現(xiàn)在程序的任何地方。定義方法為：
subsubroutine{
statements;
}

二、調(diào)用

調(diào)用方法如下：

1、用&調(diào)用
 

 
 
 

  
  
  
&subname;  
  
  
  
...  
  
  
  
subsubname{  
  
  
  
...  
  
  
  
}  
 
 
 

 

2、先定義后調(diào)用，可以省略&符號(hào)
 

 
 
 

  
  
  
subsubname{  
  
  
  
...  
  
  
  
}  
  
  
  
...  
  
  
  
subname;  
 
 
 

 

3、前向引用，先定義Perl子程序名，后面再定義Perl子程序體

 
 
 

  
  
  
subsubname;  
  
  
  
...  
  
  
  
subname;  
  
  
  
...  
  
  
  
subsubname{  
  
  
  
...  
  
  
  
}  
 
 
 

 

4、用do調(diào)用
domy_sub(1,2,3);等價(jià)于&my_sub(1,2,3);

三、返回值

缺省的，Perl子程序中***一個(gè)語句的值將用作返回值。語句return(retval);也可以推出Perl子程序并返回值retval，retval可以為列表。

四、局部變量

Perl子程序中局部變量的定義有兩種方法：my和local。其區(qū)別是：my定義的變量只在該P(yáng)erl子程序中存在；而local定義的變量不存在于主程序中，但存在于該P(yáng)erl子程序和該P(yáng)erl子程序調(diào)用的Perl子程序中(在PERL4中沒有my)。定義時(shí)可以給其賦值，如：
my($scalar)=43;
local(@array)=(1,2,3); #p#

五、Perl子程序參數(shù)傳遞

1、形式
 

 
 
 

  
  
  
&sub1(&number1,$number2,$nubmer3);  
  
  
  
...  
  
  
  
subsub1{  
  
  
  
my($number1,$number2,$number3)=@_;  
  
  
  
...  
  
  
  
}  
 
 
 

 

2、傳送數(shù)組
 

 
 
 

  
  
  
&addlist(@mylist);  
  
  
  
&addlist("14","6","11");  
  
  
  
&addlist($value1,@sublist,$value2);  
  
  
  
...  
  
  
  
subaddlist{  
  
  
  
my(@list)=@_;  
  
  
  
...  
  
  
  
}  
 
 
 

參數(shù)為數(shù)組時(shí)，Perl子程序只將它賦給一個(gè)數(shù)組變量。如
subtwolists{
my(@list1,@list2)=@_;
}
中@list2必然為空。但簡(jiǎn)單變量和數(shù)組變量可以同時(shí)傳遞：
 

 
 
 

  
  
  
&twoargs(47,@mylist);#47賦給$scalar，@mylist賦給@list  
  
  
  
&twoargs(@mylist);#@mylist的***個(gè)元素賦給$scalar，其余的元素賦給@list  
  
  
  
...  
  
  
  
subtwoargs{  
  
  
  
my($scalar,@list)=@_;  
  
  
  
...  
  
  
  
}  
 
 
 

 

六、遞歸Perl子程序

PERL中，Perl子程序可以互相調(diào)用，其調(diào)用方法與上述相同，當(dāng)調(diào)用該P(yáng)erl子程序本身時(shí)，即成了遞歸Perl子程序。遞歸Perl子程序有兩個(gè)條件：1、除了不被Perl子程序改變的變量外，所有的變量必須的局部的；2、該P(yáng)erl子程序要含有停止調(diào)用本身的代碼。

七、用別名傳遞數(shù)組參數(shù)

1、用前面講到的調(diào)用方法&my_sub(@array)將把數(shù)組@array的數(shù)據(jù)拷貝到Perl子程序中的變量@_中，當(dāng)數(shù)組很大時(shí)，將會(huì)花費(fèi)較多的資源和時(shí)間，而用別名傳遞將不做這些工作，而對(duì)該數(shù)組直接操作。形式如：
 

 
 
 

  
  
  
@myarray=(1,2,3,4,5);  
  
  
  
&my_sub(*myarray);  
  
  
  
submy_sub{  
  
  
  
my(*subarray)=@_;  
  
  
  
}  
 
 
 

 

2、此方法類似于C語言中的傳遞數(shù)組的起始地址指針，但并不一樣，在定義數(shù)組的別名之后，如果有同名的簡(jiǎn)單變量，則對(duì)該變量也是起作用的。如：
 

 
 
 

  
  
  
$foo=26;  
  
  
  
@foo=("here's","a","list");  
  
  
  
&testsub(*foo);  
  
  
  
...  
  
  
  
subtestsub{  
  
  
  
local(*printarray)=@_;  
  
  
  
...  
  
  
  
$printarray=61;  
  
  
  
}  
 
 
 

當(dāng)Perl子程序執(zhí)行完，主程序中的$foo的值已經(jīng)成了61，而不再是26了。

3、用別名的方法可以傳遞多個(gè)數(shù)組，如：
 

 
 
 

  
  
  
@array1=(1,2,3);  
  
  
  
@array2=(4,5,6);  
  
  
  
&two_array_sub(*array1,*array2);  
  
  
  
subtwo_array_sub{  
  
  
  
my(*subarray1,*subarray2)=@_;  
  
  
  
}  
 
 
 

在該P(yáng)erl子程序中，subarray1是array1的別名，subarray2是array2的別名。

八、預(yù)定義的Perl子程序

PERL5預(yù)定義了三個(gè)Perl子程序，分別在特定的時(shí)間執(zhí)行，它們是：BEGINPerl子程序在程序啟動(dòng)時(shí)被調(diào)用；ENDPerl子程序在程序結(jié)束時(shí)被調(diào)用；AUTOLOADPerl子程序在找不到某個(gè)Perl子程序時(shí)被調(diào)用。你可以自己定義它們，以在特定時(shí)間執(zhí)行所需要的動(dòng)作。如：
 

 
 
 

  
  
  
BEGIN{  
  
  
  
print("Hi!WelcometoPerl!\n");  
  
  
  
}  
  
  
  
AUTOLOAD{  
  
  
  
print("subroutine$AUTOLOADnotfound\n");#變量$AUTOLOAD即未找到的Perl子程序名  
  
  
  
print("argumentspassed:@_\n");  
  
  
  
}  
 
 
 

若同一個(gè)預(yù)定義Perl子程序定義了多個(gè)，則BEGIN順序執(zhí)行，END逆序執(zhí)行。

名稱欄目：全面認(rèn)識(shí)Perl子程序用法
網(wǎng)站網(wǎng)址：http://uogjgqi.cn/article/djgpdse.html