Perl 副程式(函數)

Perl 副程式也就是用戶定義的函數。

Perl 副程式即執行一個特殊任務的一段分離的代碼，它可以使減少重複代碼且使程式易讀。

Perl 副程式可以出現在程式的任何地方，語法格式如下：

sub subroutine{
   statements;
}

調用副程式語法格式：

subroutine( 參數列表 );

在 Perl 5.0 以下版本調用副程式方法如下：

&subroutine( 參數列表 );

在新版本上，雖然也支持該調用方法，但不推薦使用。

接下來我們來看一個簡單是實例：

實例

#!/usr/bin/perl # 函數定義 sub Hello{ print "Hello, World!\n"; } # 函數調用 Hello();

執行以上程式，輸出結果為：

Hello, World!

向副程式傳遞參數

Perl 副程式可以和其他編程一樣接受多個參數，副程式參數使用特殊數組 @_ 標明。

因此副程式第一個參數為 $_[0], 第二個參數為 $_[1], 以此類推。

不論參數是標量型還是數組型的，用戶把參數傳給副程式時，perl默認按引用的方式調用它們。

實例

#!/usr/bin/perl # 定義求平均值函數 sub Average{ # 獲取所有傳入的參數 $n = scalar(@_); $sum = 0; foreach $item (@_){ $sum += $item; } $average = $sum / $n; print '傳入的參數為 : ',"@_\n"; # 列印整個數組 print "第一個參數值為 : $_[0]\n"; # 列印第一個參數 print "傳入參數的平均值為 : $average\n"; # 列印平均值 } # 調用函數 Average(10, 20, 30);

執行以上程式，輸出結果為：

傳入的參數為 : 10 20 30
第一個參數值為 : 10
傳入參數的平均值為 : 20

用戶可以通過改變 @_ 數組中的值來改變相應實際參數的值。

向副程式傳遞列表

由於 @_ 變數是一個數組，所以它可以向副程式中傳遞列表。

但如果我們需要傳入標量和數組參數時，需要把列表放在最後一個參數上，如下所示：

實例

#!/usr/bin/perl # 定義函數 sub PrintList{ my @list = @_; print "列表為 : @list\n"; } $a = 10; @b = (1, 2, 3, 4); # 列表參數 PrintList($a, @b);

以上程式將標量和數組合並了，輸出結果為：

列表為 : 10 1 2 3 4

我們可以向副程式傳入多個數組和哈希，但是在傳入多個數組和哈希時，會導致丟失獨立的標識。所以我們需要使用引用（下一章節會介紹）來傳遞。

向副程式傳遞哈希

當向副程式傳遞哈希表時，它將複製到 @_ 中，哈希表將被展開為鍵/值組合的列表。

實例

#!/usr/bin/perl # 方法定義 sub PrintHash{ my (%hash) = @_; foreach my $key ( keys %hash ){ my $value = $hash{$key}; print "$key : $value\n"; } } %hash = ('name' => 'zaixian', 'age' => 3); # 傳遞哈希 PrintHash(%hash);

以上程式執行輸出結果為：

age : 3
name : zaixian

副程式返回值

副程式可以向其他編程語言一樣使用 return 語句來返回函數值。

如果沒有使用 return 語句，則副程式的最後一行語句將作為返回值。

實例

#!/usr/bin/perl # 方法定義 sub add_a_b{ # 不使用 return $_[0]+$_[1]; # 使用 return # return $_[0]+$_[1]; } print add_a_b(1, 2)

以上程式執行輸出結果為：

3

副程式中我們可以返回標量，數組和哈希，但是在返回多個數組和哈希時，會導致丟失獨立的標識。所以我們需要使用引用（下一章節會介紹）來返回多個數組和函數。

副程式的私有變數

默認情況下，Perl 中所有的變數都是全局變數，這就是說變數在程式的任何地方都可以調用。

如果我們需要設置私有變數，可以使用 my 操作符來設置。

my 操作符用於創建詞法作用域變數，通過 my 創建的變數，存活於聲明開始的地方，直到閉合作用域的結尾。

閉合作用域指的可以是一對花括弧中的區域，可以是一個檔，也可以是一個 if, while, for, foreach, eval字串。

以下實例演示了如何聲明一個或多個私有變數：

sub somefunc {
   my $variable; # $variable 在方法 somefunc() 外不可見
   my ($another, @an_array, %a_hash); #  同時聲明多個變數

}

實例

#!/usr/bin/perl # 全局變數 $string = "Hello, World!"; # 函數定義 sub PrintHello{ # PrintHello 函數的私有變數 my $string; $string = "Hello, zaixian!"; print "函數內字串：$string\n"; } # 調用函數 PrintHello(); print "函數外字串：$string\n";

以上程式執行輸出結果為：

函數內字串：Hello, zaixian!
函數外字串：Hello, World!

變數的臨時賦值

我們可以使用 local 為全局變數提供臨時的值，在退出作用域後將原來的值還回去。

local 定義的變數不存在於主程序中，但存在於該副程式和該副程式調用的副程式中。定義時可以給其賦值，如：

實例

#!/usr/bin/perl # 全局變數 $string = "Hello, World!"; sub Printzaixian{ # PrintHello 函數私有變數 local $string; $string = "Hello, zaixian!"; # 副程式調用的副程式 PrintMe(); print "Printzaixian 函數內字串值：$string\n"; } sub PrintMe{ print "PrintMe 函數內字串值：$string\n"; } sub PrintHello{ print "PrintHello 函數內字串值：$string\n"; } # 函數調用 Printzaixian(); PrintHello(); print "函數外部字串值：$string\n";

以上程式執行輸出結果為：

PrintMe 函數內字串值：Hello, zaixian!
Printzaixian 函數內字串值：Hello, zaixian!
PrintHello 函數內字串值：Hello, World!
函數外部字串值：Hello, World!

靜態變數

state操作符功能類似於C裏面的static修飾符，state關鍵字將局部變數變得持久。

state也是詞法變數，所以只在定義該變數的詞法作用域中有效，舉個例子：

實例

#!/usr/bin/perl use feature 'state'; sub PrintCount{ state $count = 0; # 初始化變數 print "counter 值為：$count\n"; $count++; } for (1..5){ PrintCount(); }

以上程式執行輸出結果為：

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() 副程式，在標量上下文返回字串，在列表上下文返回列表:

實例

#!/usr/bin/perl # 標量上下文 my $datestring = localtime( time ); print $datestring; print "\n"; # 列表上下文 ($sec,$min,$hour,$mday,$mon, $year,$wday,$yday,$isdst) = localtime(time); printf("%d-%d-%d %d:%d:%d",$year+1990,$mon+1,$mday,$hour,$min,$sec); print "\n";

以上程式執行輸出結果為：

Sun Jun 12 15:58:09 2016
2106-6-12 15:58:9