Perl用戶自定義函數（子程序）

　　函數可分為系統函數和用戶函數。

用戶函數

　　用戶函數又稱子程序(Subroutine)，在P erl中用下面的結構來定義用戶函數：

　　　　sub 子程序名{

　　　　　　語句塊;
　　　　}

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

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

　　　　sub say_hello{

　　　　　　print "你好，歡迎光臨網上學園";
　　　　}

　　用戶函數的定義可以位于程序的任何位置，比如說放在文件的未尾。如果兩個子程序使用了相同的程序名， 后面的子程序將覆蓋前面子程序。

　　用戶函數中的變量默認為全局變量，與其他程序共享。

　　用戶函數的調用：通過在子程序前加“&”調用，可在任一表達式內調用。 子程序中可以再調用另外的子程序。

　　調用用戶函數產生的結果稱為返回值(return value)。返回值是每次調用函數中最后一個表達式的計算值。 以加法函數為例：

　　　　sub add_a_b{

　　　　　　$a+$b;
　　　　}

　　函數最后一條表達式為$a+$b，故返回值為$a+$b。以下是調用情況：

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

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

　　仍以加法函數為例：

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

　　如何改變參數的個數呢？我們可以用循環的方式來實現：

　　　　sub add_all{
　　　　　　$sum=0; #將sum初始化
　　　　　　foreach $_(@_) { #遍歷參數列表
　　　　　　　$sum+=$_; #累加每個元素
　　　　　　}
　　　　　　$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

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

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

　　　　local($sum);
　　當函數執行時，$sum的全程變量的值被保留起來，同時建立一個局部變量$sum，

原文轉自：http://www.kjueaiud.com