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

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

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
Perl程序設(shè)計中的Perl用戶函數(shù)(子程序)

本文和大家重點討論一下Perl用戶函數(shù)的概念，Perl函數(shù)可分為系統(tǒng)函數(shù)和PerlPerl用戶函數(shù)。Perl用戶函數(shù)中的變量默認(rèn)為全局變量，與其他程序共享。希望通過本文的介紹你對Perl用戶函數(shù)有初步的認(rèn)識。

專注于為中小企業(yè)提供成都網(wǎng)站建設(shè)、網(wǎng)站設(shè)計服務(wù),電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業(yè)洞頭免費做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動了上千家企業(yè)的穩(wěn)健成長，幫助中小企業(yè)通過網(wǎng)站建設(shè)實現(xiàn)規(guī)模擴充和轉(zhuǎn)變。

Perl用戶函數(shù)

Perl用戶函數(shù)又稱子程序(Subroutine)，在Perl中用下面的結(jié)構(gòu)來定義Perl用戶函數(shù)：　　　

 
 
 
      
  
  
  1. 　sub子程序名{  
    2.   
  
  
  2. 　　　　　　語句塊;  
    3.   
  
  
  3. 　　　　}  
    4.   
  
  
  4.  
    5.

這里的子程序名與變量的取名規(guī)則類似。

以顯示歡迎詞的程序為例：　　

 
 
 
      
  
  
  1. 　　subsay_hello{  
    2.   
  
  
  2. 　　　　　　print"你好，歡迎光臨網(wǎng)上學(xué)園";  
    3.   
  
  
  3. 　　　　}  
    4.   
  
  
  4.  
    5.

Perl用戶函數(shù)的定義可以位于程序的任何位置，比如說放在文件的未尾。如果兩個子程序使用了相同的程序名，后面的子程序?qū)⒏采w前面子程序。

Perl用戶函數(shù)中的變量默認(rèn)為全局變量，與其他程序共享。

Perl用戶函數(shù)的調(diào)用：通過在子程序前加“&”調(diào)用，可在任一表達式內(nèi)調(diào)用。子程序中可以再調(diào)用另外的子程序。

調(diào)用Perl用戶函數(shù)產(chǎn)生的結(jié)果稱為返回值(returnvalue)。返回值是每次調(diào)用函數(shù)中***一個表達式的計算值。以加法函數(shù)為例：　　　

 
 
 
      
  
  
  1. 　subadd_a_b{  
    2.   
  
  
  2. 　　　　　　$a+$b;  
    3.   
  
  
  3. 　　　　}  
    4.   
  
  
  4.  
    5.

函數(shù)***一條表達式為$a+$b，故返回值為$a+$b。以下是調(diào)用情況：

　　$a=5;
　　　　$b=6;
　　　　$c=&add_a_b;#$c的值為11
　　　　$d=5*&add_a_b;#$d的值為5*11即55

上述的Perl用戶函數(shù)功能與傳統(tǒng)直接寫在程序中沒什么兩樣，如果加上參數(shù)傳遞就可以實現(xiàn)全新的功能了。在Perl中，如果函數(shù)調(diào)用后面跟著一個用括號括起來的列表，則在函數(shù)調(diào)用期間該列表將被自動分配給以@_命名的特殊變量。函數(shù)可以訪問該變量，從而確定參數(shù)的個數(shù)及賦值。

仍以加法函數(shù)為例：　　　

 
 
 
      
  
  
  1. 　subadd_a_b{  
    2.   
  
  
  2. 　　　　　　$_[0]+$_[1];  
    3.   
  
  
  3. 　　　　}  
    4.   
  
  
  4. 　　　　$c=&add_a_b(5,6);#$c的值為11  
    5.   
  
  
  5. 　　　　$d=5*&add_a_b(2,3);#d的值為5*5即25  
    6.

如何改變參數(shù)的個數(shù)呢？我們可以用循環(huán)的方式來實現(xiàn)：　　　

 
 
 
      
  
  
  1. 　subadd_all{  
    2.   
  
  
  2. 　　　　　　$sum=0;#將sum初始化  
    3.   
  
  
  3. 　　　　　　foreach$_(@_){#遍歷參數(shù)列表  
    4.   
  
  
  4. 　　　　　　　$sum+=$_;#累加每個元素  
    5.   
  
  
  5. 　　　　　　}  
    6.   
  
  
  6. 　　　　　　$sum;#返回sum即總和的值  
    7.   
  
  
  7. 　　　　}  
    8.   
  
  
  8. 　　　　$a=&add_all(3,4,5);#$a的值為3+4+5即12  
    9.   
  
  
  9. 　　　　$d=2*&add_all(1,2,3,4,5);#d的值為2*15即30  
    10.

 　　既然Perl用戶函數(shù)中的變量全為全程變量，那么上述程序中若調(diào)用程序中含有$sum變量時將替換，這不是我們所要的。那么如何解決這一問題呢？

答案就是：使用局部變量,使用local()操作符就可實現(xiàn)此功能。在上面的程序中，只需在***行$sum=0;前加入：

　　local($sum);

當(dāng)函數(shù)執(zhí)行時，$sum的全程變量的值被保留起來，同時建立一個局部變量$sum，退出函數(shù)add_all后將全程變量$sum的值恢復(fù)。如：　　　　

 
 
 
      
  
  
  1. subadd_all{  
    2.   
  
  
  2. 　　　　　　local($sum);#將$sum定義為局部變量  
    3.   
  
  
  3. 　　　　　　$sum=0;#將sum初始化  
    4.   
  
  
  4. 　　　　　　foreach$_(@_){#遍歷參數(shù)列表  
    5.   
  
  
  5. 　　　　　　　$sum+=$_;#累加每個元素  
    6.   
  
  
  6. 　　　　　　}  
    7.   
  
  
  7. 　　　　　　$sum;#返回sum即總和的值  
    8.   
  
  
  8. 　　　　}  
    9.   
  
  
  9. 　　　　$sum=88;#$sum的原始值為88  
    10.   
  
  
  10. 　　　　print$sum;#顯示$sum的值即88  
    11.   
  
  
  11. 　　　　$a=&add_all(3,4,5);#$a的值為3+4+5即12  
    12.   
  
  
  12. 　　　　print$sum;#顯示$sum的值仍為88  
    13.

 　　比較：若未加入local($sum);行，***一行的執(zhí)行結(jié)果將為12。

下面再舉一例：計算十以內(nèi)的加法，并以中文形式輸出。當(dāng)超過十時輸出阿拉伯?dāng)?shù)字。如：輸入兩個數(shù)字，顯示“一加二等于三”。程序如下：　　　　

 
 
 
      
  
  
  1. #/!/usr/bin/perl  
    2.   
  
  
  2. 　　　　subcnumber{  
    3.   
  
  
  3. 　　　　　　@chinese=("0","一","二","三","四","五","六","七","八","九");  
    4.   
  
  
  4. 　　　　　　　　　　　　#將@chinese定義為數(shù)組  
    5.   
  
  
  5. 　　　　　　local($number);#將number定義為局部變量  
    6.   
  
  
  6. 　　　　　　$chinese($number)||number;#想想為什么？  
    7.   
  
  
  7. 　　　　}  
    8.   
  
  
  8. 　　　　#主程序  
    9.   
  
  
  9. 　　　　print"請輸入一個數(shù)："  
    10.   
  
  
  10. 　　　　chop($num1=);  
    11.   
  
  
  11. 　　　　print"請再輸入一個數(shù)："  
    12.   
  
  
  12. 　　　　chop($num2=);  
    13.   
  
  
  13. 　　　　$msg=&chinese($num1)."加".&chinese($num2)."等于".  
    14.   
  
  
  14. 　　　　　　　　&chinese($num1+num2)."。\n"  
    15.   
  
  
  15. 　　　　print$msg;#打印$msg的值  
    16.   
  
  
  16.  
    17.   
  
  
  17. 　　其中$chinese($number)||number;行的初級寫法為：  
    18.   
  
  
  18. 　　　　if($chinese(number){  
    19.   
  
  
  19. 　　　　　　&chinese($number);#返回中文  
    20.   
  
  
  20. 　　　　}else{  
    21.   
  
  
  21. 　　　　　　&number;#返回阿拉伯?dāng)?shù)字  
    22.   
  
  
  22. 　　　　}  
    23.   
  
  
  23.  
    24.

 　　看看執(zhí)行結(jié)果：輸入2,3，顯示："二加三等于五。"；輸入3,12，顯示："三加12等于15。"

【編輯推薦】

  1. 深入解析Perl內(nèi)部函數(shù)的使用
  2. Perl語言中的五大變量類型
  3. 用Perl和Google Earth創(chuàng)建可用性地圖
  4. 在 Perl/Tk 中使用高級窗口小部件
  5. 讓Perl成為你的嵌入式開發(fā)工具

分享題目：Perl程序設(shè)計中的Perl用戶函數(shù)(子程序)
鏈接分享：http://www.5511xx.com/article/cdcjeod.html