Perl 子程序(函數(shù))
Perl 子程序也就是用戶定義的函數(shù)。
Perl 子程序即執(zhí)行一個(gè)特殊任務(wù)的一段分離的代碼，它可以使減少重復(fù)代碼且使程序易讀。
Perl 子程序可以出現(xiàn)在程序的任何地方，語法格式如下：
sub subroutine{
statements;
}
調(diào)用子程序語法格式：
subroutine( 參數(shù)列表 );
在 Perl 5.0 以下版本調(diào)用子程序方法如下：
&subroutine( 參數(shù)列表 );
在新版本上，雖然也支持該調(diào)用方法，但不推薦使用。
接下來我們來看一個(gè)簡單是實(shí)例：
#!/usr/bin/perl
# 函數(shù)定義
sub Hello{
print "Hello, World!\n";
}
# 函數(shù)調(diào)用
Hello();
執(zhí)行以上程序，輸出結(jié)果為：
Hello, World!
向子程序傳遞參數(shù)
Perl 子程序可以和其他編程一樣接受多個(gè)參數(shù)，子程序參數(shù)使用特殊數(shù)組 @_ 標(biāo)明。
因此子程序第一個(gè)參數(shù)為 $_[0], 第二個(gè)參數(shù)為 $_[1], 以此類推。
不論參數(shù)是標(biāo)量型還是數(shù)組型的，用戶把參數(shù)傳給子程序時(shí)，perl默認(rèn)按引用的方式調(diào)用它們。
#!/usr/bin/perl
# 定義求平均值函數(shù)
sub Average{
# 獲取所有傳入的參數(shù)
$n = scalar(@_);
$sum = 0;
foreach $item (@_){
$sum += $item;
}
$average = $sum / $n;
print '傳入的參數(shù)為 : ',"@_\n"; # 打印整個(gè)數(shù)組
print "第一個(gè)參數(shù)值為 : $_[0]\n"; # 打印第一個(gè)參數(shù)
print "傳入?yún)?shù)的平均值為 : $average\n"; # 打印平均值
}
# 調(diào)用函數(shù)
Average(10, 20, 30);
執(zhí)行以上程序，輸出結(jié)果為：
傳入的參數(shù)為 : 10 20 30 第一個(gè)參數(shù)值為 : 10 傳入?yún)?shù)的平均值為 : 20
用戶可以通過改變 @_ 數(shù)組中的值來改變相應(yīng)實(shí)際參數(shù)的值。
向子程序傳遞列表
由于 @_ 變量是一個(gè)數(shù)組，所以它可以向子程序中傳遞列表。
但如果我們需要傳入標(biāo)量和數(shù)組參數(shù)時(shí)，需要把列表放在最后一個(gè)參數(shù)上，如下所示：
#!/usr/bin/perl
# 定義函數(shù)
sub PrintList{
my @list = @_;
print "列表為 : @list\n";
}
$a = 10;
@b = (1, 2, 3, 4);
# 列表參數(shù)
PrintList($a, @b);
以上程序?qū)?biāo)量和數(shù)組合并了，輸出結(jié)果為：
列表為 : 10 1 2 3 4
我們可以向子程序傳入多個(gè)數(shù)組和哈希，但是在傳入多個(gè)數(shù)組和哈希時(shí)，會(huì)導(dǎo)致丟失獨(dú)立的標(biāo)識(shí)。所以我們需要使用引用（下一章節(jié)會(huì)介紹）來傳遞。
向子程序傳遞哈希
當(dāng)向子程序傳遞哈希表時(shí)，它將復(fù)制到 @_ 中，哈希表將被展開為鍵/值組合的列表。
#!/usr/bin/perl
# 方法定義
sub PrintHash{
my (%hash) = @_;
foreach my $key ( keys %hash ){
my $value = $hash{$key};
print "$key : $value\n";
}
}
%hash = ('name' => 'youj', 'age' => 3);
# 傳遞哈希
PrintHash(%hash);
以上程序執(zhí)行輸出結(jié)果為：
age : 3 name : youj
子程序返回值
子程序可以向其他編程語言一樣使用 return 語句來返回函數(shù)值。
如果沒有使用 return 語句，則子程序的最后一行語句將作為返回值。
#!/usr/bin/perl
# 方法定義
sub add_a_b{
# 不使用 return
$_[0]+$_[1];
# 使用 return
# return $_[0]+$_[1];
}
print add_a_b(1, 2)
以上程序執(zhí)行輸出結(jié)果為：
3
子程序中我們可以返回標(biāo)量，數(shù)組和哈希，但是在返回多個(gè)數(shù)組和哈希時(shí)，會(huì)導(dǎo)致丟失獨(dú)立的標(biāo)識(shí)。所以我們需要使用引用（下一章節(jié)會(huì)介紹）來返回多個(gè)數(shù)組和函數(shù)。
子程序的私有變量
默認(rèn)情況下，Perl 中所有的變量都是全局變量，這就是說變量在程序的任何地方都可以調(diào)用。
如果我們需要設(shè)置私有變量，可以使用 my 操作符來設(shè)置。
my 操作符用于創(chuàng)建詞法作用域變量，通過 my 創(chuàng)建的變量，存活于聲明開始的地方，直到閉合作用域的結(jié)尾。
閉合作用域指的可以是一對(duì)花括號(hào)中的區(qū)域，可以是一個(gè)文件，也可以是一個(gè) if, while, for, foreach, eval字符串。
以下實(shí)例演示了如何聲明一個(gè)或多個(gè)私有變量：
sub somefunc {
my $variable; # $variable 在方法 somefunc() 外不可見
my ($another, @an_array, %a_hash); # 同時(shí)聲明多個(gè)變量
}
#!/usr/bin/perl
# 全局變量
$string = "Hello, World!";
# 函數(shù)定義
sub PrintHello{
# PrintHello 函數(shù)的私有變量
my $string;
$string = "Hello, W3Cschool!";
print "函數(shù)內(nèi)字符串：$string\n";
}
# 調(diào)用函數(shù)
PrintHello();
print "函數(shù)外字符串：$string\n";
以上程序執(zhí)行輸出結(jié)果為：
函數(shù)內(nèi)字符串：Hello, W3Cschool! 函數(shù)外字符串：Hello, World!
變量的臨時(shí)賦值
我們可以使用 local 為全局變量提供臨時(shí)的值，在退出作用域后將原來的值還回去。
local 定義的變量不存在于主程序中，但存在于該子程序和該子程序調(diào)用的子程序中。定義時(shí)可以給其賦值，如：
#!/usr/bin/perl
# 全局變量
$string = "Hello, World!";
sub PrintW3CSchool{
# PrintHello 函數(shù)私有變量
local $string;
$string = "Hello, W3Cschool!";
# 子程序調(diào)用的子程序
PrintMe();
print "PrintW3CSchool 函數(shù)內(nèi)字符串值：$string\n";
}
sub PrintMe{
print "PrintMe 函數(shù)內(nèi)字符串值：$string\n";
}
sub PrintHello{
print "PrintHello 函數(shù)內(nèi)字符串值：$string\n";
}
# 函數(shù)調(diào)用
PrintW3CSchool();
PrintHello();
print "函數(shù)外部字符串值：$string\n";
以上程序執(zhí)行輸出結(jié)果為：
PrintMe 函數(shù)內(nèi)字符串值：Hello, W3Cschool! PrintW3CSchool 函數(shù)內(nèi)字符串值：Hello, W3Cschool! PrintHello 函數(shù)內(nèi)字符串值：Hello, World! 函數(shù)外部字符串值：Hello, World!
靜態(tài)變量
state操作符功能類似于C里面的static修飾符，state關(guān)鍵字將局部變量變得持久。
state也是詞法變量，所以只在定義該變量的詞法作用域中有效，舉個(gè)例子：
#!/usr/bin/perl
use feature 'state';
sub PrintCount{
state $count = 0; # 初始化變量
print "counter 值為：$count\n";
$count++;
}
for (1..5){
PrintCount();
}
以上程序執(zhí)行輸出結(jié)果為：
counter 值為：0 counter 值為：1 counter 值為：2 counter 值為：3 counter 值為：4
注1：state僅能創(chuàng)建閉合作用域?yàn)樽映绦騼?nèi)部的變量。
注2：state是從Perl 5.9.4開始引入的，所以使用前必須加上 use。
注3：state可以聲明標(biāo)量、數(shù)組、哈希。但在聲明數(shù)組和哈希時(shí)，不能對(duì)其初始化（至少Perl 5.14不支持）。
子程序調(diào)用上下文
子程序調(diào)用過程中，會(huì)根據(jù)上下文來返回不同類型的值，比如以下 localtime() 子程序，在標(biāo)量上下文返回字符串，在列表上下文返回列表:
#!/usr/bin/perl
# 標(biāo)量上下文
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";
以上程序執(zhí)行輸出結(jié)果為：
Sun Jun 12 15:58:09 2016 2106-6-12 15:58:9
更多建議：