Perl 子程式(函式)
Perl 子程式(函式)
Perl 子程式也就是使用者定義的函式。
Perl 子程式即執行一個特殊任務的一段分離的程式碼,它可以使減少重複程式碼且使程式易讀。
Perl 子程式可以出現在程式的任何地方,語法格式如下:
sub subroutine{ statements; }
呼叫子程式語法格式:
subroutine( 引數列表 );
在 Perl 5.0 以下版本呼叫子程式方法如下:
&subroutine( 引數列表 );
在新版本上,雖然也支援該呼叫方法,但不推薦使用。
接下來我們來看一個簡單是例項:
例項
執行以上程式,輸出結果為:
Hello, World!
向子程式傳遞引數
Perl 子程式可以和其他程式設計一樣接受多個引數,子程式引數使用特殊陣列 @_ 標明。
因此子程式第一個引數為 $_[0], 第二個引數為 $_[1], 以此類推。
不論引數是標量型還是陣列型的,使用者把引數傳給子程式時,perl預設按引用的方式呼叫它們。
例項
執行以上程式,輸出結果為:
傳入的引數為 : 10 20 30 第一個引數值為 : 10 傳入引數的平均值為 : 20
使用者可以通過改變 @_ 陣列中的值來改變相應實際引數的值。
向子程式傳遞列表
由於 @_ 變數是一個數組,所以它可以向子程式中傳遞列表。
但如果我們需要傳入標量和陣列引數時,需要把列表放在最後一個引數上,如下所示:
例項
以上程式將標量和數組合並了,輸出結果為:
列表為 : 10 1 2 3 4
我們可以向子程式傳入多個數組和雜湊,但是在傳入多個數組和雜湊時,會導致丟失獨立的標識。所以我們需要使用引用(下一章節會介紹)來傳遞。
向子程式傳遞雜湊
當向子程式傳遞雜湊表時,它將複製到 @_ 中,雜湊表將被展開為鍵/值組合的列表。
例項
以上程式執行輸出結果為:
age : 3 name : itread01
子程式返回值
子程式可以向其他程式語言一樣使用 return 語句來返回函式值。
如果沒有使用 return 語句,則子程式的最後一行語句將作為返回值。
例項
以上程式執行輸出結果為:
3
子程式中我們可以返回標量,陣列和雜湊,但是在返回多個數組和雜湊時,會導致丟失獨立的標識。所以我們需要使用引用(下一章節會介紹)來返回多個數組和函式。
子程式的私有變數
預設情況下,Perl 中所有的變數都是全域性變數,這就是說變數在程式的任何地方都可以呼叫。
如果我們需要設定私有變數,可以使用 my 操作符來設定。
my 操作符用於建立詞法作用域變數,通過 my 建立的變數,存活於宣告開始的地方,直到閉合作用域的結尾。
閉合作用域指的可以是一對花括號中的區域,可以是一個檔案,也可以是一個 if, while, for, foreach, eval字串。
以下例項演示瞭如何宣告一個或多個私有變數:
sub somefunc { my $variable; # $variable 在方法 somefunc() 外不可見 my ($another, @an_array, %a_hash); # 同時宣告多個變數 }
例項
以上程式執行輸出結果為:
函式內字串:Hello, itread01! 函式外字串:Hello, World!
變數的臨時賦值
我們可以使用 local 為全域性變數提供臨時的值,在退出作用域後將原來的值還回去。
local 定義的變數不存在於主程式中,但存在於該子程式和該子程式呼叫的子程式中。定義時可以給其賦值,如:
例項
以上程式執行輸出結果為:
PrintMe 函式內字串值:Hello, itread01! Printitread01 函式內字串值:Hello, itread01! PrintHello 函式內字串值:Hello, World! 函式外部字串值:Hello, World!
靜態變數
state操作符功能類似於C裡面的static修飾符,state關鍵字將區域性變數變得持久。
state也是詞法變數,所以只在定義該變數的詞法作用域中有效,舉個例子:
例項
以上程式執行輸出結果為:
counter 值為:0 counter 值為:1 counter 值為:2 counter 值為:3 counter 值為:4
注1:state僅能建立閉合作用域為子程式內部的變數。
注2:state是從Perl 5.9.4開始引入的,所以使用前必須加上 use。
注3:state可以宣告標量、陣列、雜湊。但在宣告陣列和雜湊時,不能對其初始化(至少Perl 5.14不支援)。
子程式呼叫上下文
子程式呼叫過程中,會根據上下文來返回不同型別的值,比如以下 localtime() 子程式,在標量上下文返回字串,在列表上下文返回列表:
例項
以上程式執行輸出結果為:
Sun Jun 12 15:58:09 2016 2106-6-12 15:58:9