Perl中子程序如何使用

這篇文章給大家介紹Perl中子程序如何使用，內容非常詳細，感興趣的小伙伴們可以參考借鑒，希望對大家能有所幫助。

Perl子程序

一、定義

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

二、調用

調用方法如下：

1、用&調用

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

2、先定義后調用，可以省略&符號

subsubname{  ...  }  ...  subname;

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

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

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

三、返回值

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

四、局部變量

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

五、Perl子程序參數傳遞

1、形式

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

2、傳送數組

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

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

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

六、遞歸Perl子程序

PERL中，Perl子程序可以互相調用，其調用方法與上述相同，當調用該Perl子程序本身時，即成了遞歸Perl子程序。遞歸Perl子程序有兩個條件：1、除了不被Perl子程序改變的變量外，所有的變量必須的局部的；2、該Perl子程序要含有停止調用本身的代碼。

七、用別名傳遞數組參數

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

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

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

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

當Perl子程序執行完，主程序中的$foo的值已經成了61，而不再是26了。

3、用別名的方法可以傳遞多個數組，如：

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

在該Perl子程序中，subarray1是array1的別名，subarray2是array2的別名。

八、預定義的Perl子程序

PERL5預定義了三個Perl子程序，分別在特定的時間執行，它們是：BEGINPerl子程序在程序啟動時被調用；ENDPerl子程序在程序結束時被調用；AUTOLOADPerl子程序在找不到某個Perl子程序時被調用。你可以自己定義它們，以在特定時間執行所需要的動作。如：

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

若同一個預定義Perl子程序定義了多個，則BEGIN順序執行，END逆序執行。

關于Perl中子程序如何使用就分享到這里了，希望以上內容可以對大家有一定的幫助，可以學到更多知識。如果覺得文章不錯，可以把它分享出去讓更多的人看到。