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

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

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
Perl子程序sub用法指南

本文和大家重點討論一下Perl子程序的概念，Perl編程語言中Perl子程序有很多值得學(xué)習(xí)的地方，你對它的概念是否了解，這里和大家簡單分享一下，希望本文的介紹能讓你有所收獲。

Perl子程序sub

一、定義

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

 
 
 
      
  
  
  1. subsubroutine{  
    2.   
  
  
  2. statements;  
    3.   
  
  
  3. } 
    4.

 二、調(diào)用

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

1、用&調(diào)用

 
 
 
      
  
  
  1. &subname;  
    2.   
  
  
  2. ...  
    3.   
  
  
  3. subsubname{  
    4.   
  
  
  4. ...  
    5.   
  
  
  5. }  
    6.   
  
  
  6.  
    7.

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

 
 
 
      
  
  
  1. &subname;  
    2.   
  
  
  2. ...  
    3.   
  
  
  3. subsubname{  
    4.   
  
  
  4. ...  
    5.   
  
  
  5. }  
    6.

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

 
 
 
      
  
  
  1. subsubname;  
    2.   
  
  
  2. ...  
    3.   
  
  
  3. subname;  
    4.   
  
  
  4. ...  
    5.   
  
  
  5. subsubname{  
    6.   
  
  
  6. ...  
    7.   
  
  
  7. }  
    8.   
  
  
  8.  
    9.

 4、用do調(diào)用

domy_sub(1,2,3);等價于&my_sub(1,2,3);

三、返回值

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

四、局部變量

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

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

1、形式

 
 
 
      
  
  
  1. &sub1(&number1,$number2,$nubmer3);  
    2.   
  
  
  2. ...  
    3.   
  
  
  3. subsub1{  
    4.   
  
  
  4. my($number1,$number2,$number3)=@_;  
    5.   
  
  
  5. ...  
    6.   
  
  
  6. }  
    7.   
  
  
  7.  
    8.

 2、傳送數(shù)組

 
 
 
      
  
  
  1. &addlist(@mylist);  
    2.   
  
  
  2. &addlist("14","6","11");  
    3.   
  
  
  3. &addlist($value1,@sublist,$value2);  
    4.   
  
  
  4. ...  
    5.   
  
  
  5. subaddlist{  
    6.   
  
  
  6. my(@list)=@_;  
    7.   
  
  
  7. ...  
    8.   
  
  
  8. }  
    9.

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

 
 
 
      
  
  
  1. &twoargs(47,@mylist);#47賦給$scalar，@mylist賦給@list  
    2.   
  
  
  2. &twoargs(@mylist);#@mylist的第一個元素賦給$scalar，其余的元素賦給@list  
    3.   
  
  
  3. ...  
    4.   
  
  
  4. subtwoargs{  
    5.   
  
  
  5. my($scalar,@list)=@_;  
    6.   
  
  
  6. ...  
    7.   
  
  
  7. }  
    8.

六、遞歸Perl子程序

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

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

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

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

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

 
 
 
      
  
  
  1. $foo=26;  
    2.   
  
  
  2. @foo=("here's","a","list");  
    3.   
  
  
  3. &testsub(*foo);  
    4.   
  
  
  4. ...  
    5.   
  
  
  5. subtestsub{  
    6.   
  
  
  6. local(*printarray)=@_;  
    7.   
  
  
  7. ...  
    8.   
  
  
  8. $printarray=61;  
    9.   
  
  
  9. }  
    10.

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

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

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

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

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

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

 
 
 
      
  
  
  1. BEGIN{  
    2.   
  
  
  2. print("Hi!WelcometoPerl!\n");  
    3.   
  
  
  3. }  
    4.   
  
  
  4. AUTOLOAD{  
    5.   
  
  
  5. print("subroutine$AUTOLOADnotfound\n");#變量$AUTOLOAD即未找到的Perl子程序名  
    6.   
  
  
  6. print("argumentspassed:@_\n");  
    7.   
  
  
  7. }  
    8.

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

【編輯推薦】

  1. 全面認識Perl子程序用法
  2. 學(xué)習(xí)筆記 Perl基本語法
  3. Perl引用中直接引用用法解析
  4. Perl語法 解析Perl變量使用
  5. 技術(shù)分享 解析Perl模塊創(chuàng)建和導(dǎo)入方法

分享文章：Perl子程序sub用法指南
文章源于：http://m.5511xx.com/article/dhedsjs.html