酷播亮新聞
最棒的知識補給站

Perl 子程序(函數)

Perl 子程序也就是用戶定義的函數。

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

Perl 子程序可以出現在程序的任何地方,語法格式如下:

sub subroutine{
statements;}

調用子程序語法格式:

subroutine( 參數列表 );

在 Perl 5.0 以下版本調用子程序方法如下:

&subroutine( 參數列表 );

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

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

實例

#!/usr/bin/perl# 函數定義subHello{print”Hello, World!
“;}# 函數調用Hello();

執行以上程序,輸出結果為:

Hello, World!


向子程序傳遞參數

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

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

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

實例

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

# 調用函數
Average(10, 20, 30);

執行以上程序,輸出結果為:

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

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

向子程序傳遞列表

由於 @_ 變數是一個數組,所以它可以向子程序中傳遞列表。

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

實例

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

以上程序將標量和數組合併了,輸出結果為:

列表為 : 10 1 2 3 4

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

向子程序傳遞哈希

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

實例

#!/usr/bin/perl# 方法定義subPrintHash{my(%hash) = @_;
foreachmy$key(keys%hash){my$value = $hash{$key}; print”$key : $value
“; }}%hash = (“name” => “runoob”, “age” => 3);
# 傳遞哈希PrintHash(%hash);

以上程序執行輸出結果為:

age : 3name : runoob


子程序返回值

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

如果沒有使用 return 語句,則子程序的最後一行語句將作為返回值。

實例

#!/usr/bin/perl# 方法定義subadd_a_b{# 不使用 return$_[0]+$_[1];

# 使用 return# return $_[0]+$_[1]; }printadd_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!”;
# 函數定義subPrintHello{# PrintHello 函數的私有變數my$string; $string = “Hello, Runoob!”; print”函數內字元串:$string
“;}# 調用函數PrintHello();print”函數外字元串:$string
“;

以上程序執行輸出結果為:

函數內字元串:Hello, Runoob!函數外字元串:Hello, World!


變數的臨時賦值

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

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

實例

#!/usr/bin/perl# 全局變數$string = “Hello, World!”;
subPrintRunoob{# PrintHello 函數私有變數local$string; $string = “Hello, Runoob!”; # 子程序調用的子程序PrintMe(); print”PrintRunoob 函數內字元串值:$string
“;}subPrintMe{print”PrintMe 函數內字元串值:$string
“;}subPrintHello{print”PrintHello 函數內字元串值:$string
“;}# 函數調用PrintRunoob();PrintHello();print”函數外部字元串值:$string
“;

以上程序執行輸出結果為:

PrintMe 函數內字元串值:Hello, Runoob!PrintRunoob 函數內字元串值:Hello, Runoob!PrintHello 函數內字元串值:Hello, World!函數外部字元串值:Hello, World!


靜態變數

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

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

實例

#!/usr/bin/perluse feature”state”;
subPrintCount{state$count = 0; # 初始化變數print”counter 值為:$count
“; $count++;}for(1..5){PrintCount();}

以上程序執行輸出結果為:

counter 值為:0counter 值為:1counter 值為:2counter 值為:3counter 值為:4

注1:state僅能創建閉合作用域為子程序內部的變數。

注2:state是從Perl 5.9.4開始引入的,所以使用前必須加上 use。

注3:state可以聲明標量、數組、哈希。但在聲明數組和哈希時,不能對其初始化(至少Perl 5.14不支持)。


Perl 子程序(函數)

子程序調用上下文

子程序調用過程中,會根據上下文來返回不同類型的值,比如以下 localtime() 子程序,在標量上下文返回字元串,在列表上下文返回列表:

實例

#!/usr/bin/perl# 標量上下文my$datestring = localtime(time);print$datestring;
print”
“;
# 列表上下文($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”
“;

以上程序執行輸出結果為:

Sun Jun 12 15:58:09 20162106-6-12 15:58:9

喜歡這篇文章嗎?立刻分享出去讓更多人知道吧!

本站內容充實豐富,博大精深,小編精選每日熱門資訊,隨時更新,點擊「搶先收到最新資訊」瀏覽吧!


請您繼續閱讀更多來自 程序員小新人學習 的精彩文章:
如有侵權請來信告知:酷播亮新聞 » Perl 子程序(函數)