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 : runoob
子程序返回值
子程序可以向其他編程語言一樣使用 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, Runoob! 函數外字符串:Hello, World!
變量的臨時賦值
我們可以使用 local 為全局變量提供臨時的值,在退出作用域後將原來的值還回去。
local 定義的變量不存在於主程序中,但存在於該子程序和該子程序調用的子程序中。定義時可以給其賦值,如:
實例
以上程序執行輸出結果為:
PrintMe 函數內字符串值:Hello, Runoob! PrintRunoob 函數內字符串值:Hello, Runoob! 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