本文和大家重點(diǎn)討論一下Perl用戶函數(shù)的概念和使用，在學(xué)習(xí)Perl函數(shù)的過程中，Perl函數(shù)可分為系統(tǒng)函數(shù)和Perl用戶函數(shù)。希望本文的介紹能讓你有所收獲。

Perl用戶函數(shù)的使用

Perl函數(shù)可分為系統(tǒng)函數(shù)和Perl用戶函數(shù)。這里先介紹Perl用戶函數(shù)

Perl用戶函數(shù)

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

　　　　sub子程序名{

　　　　　　語(yǔ)句塊;
　　　　}

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

　　以顯示歡迎詞的程序?yàn)槔骸　　　?/p>

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

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

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

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

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

subadd_a_b{  
 
　　　　　　$a+$b;  
　　　　} 

 　　函數(shù)最后一條表達(dá)式為$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

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

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

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

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

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

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

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

　　　　local($sum);

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

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

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

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

#/!/usr/bin/Perl  
　　　　subcnumber{  
　　　　　　@chinese=("0","一","二","三","四","五","六","七","八","九");  
　　　　　　　　　　　　#將@chinese定義為數(shù)組  
　　　　　　local($number);#將number定義為局部變量  
　　　　　　$chinese($number)||number;#想想為什么？  
　　　　}  
　　　　#主程序  
　　　　print"請(qǐng)輸入一個(gè)數(shù)："  
　　　　chop($num1=);  
　　　　print"請(qǐng)?jiān)佥斎胍粋€(gè)數(shù)："  
　　　　chop($num2=);  
　　　　$msg=&chinese($num1)."加".&chinese($num2)."等于".  
　　　　　　　　&chinese($num1+num2)."。n"  
　　　　print$msg;#打印$msg的值  

 　　其中$chinese($number)||number;行的初級(jí)寫法為：　　　　

if($chinese(number){  
　　　　　　&chinese($number);#返回中文  
　　　　}else{  
　　　　　　&number;#返回阿拉伯?dāng)?shù)字  
　　　　}  

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

【編輯推薦】

1. 解析Perl文件系統(tǒng)應(yīng)用中函數(shù)的語(yǔ)法
2. Perl文件句柄概念詳解
3. Perl程序設(shè)計(jì)中的Perl用戶函數(shù)(子程序)
4. Perl基礎(chǔ) Perl數(shù)組學(xué)習(xí)指南
5. 術(shù)語(yǔ)匯編 全面認(rèn)識(shí)Perl文件句柄