Perl子程序怎么用

小編給大家分享一下Perl子程序怎么用，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！

Perl 子程序(函數(shù))

Perl 子程序(函數(shù))

Perl 子程序也就是用戶定義的函數(shù)。

Perl 子程序即執(zhí)行一個特殊任務(wù)的一段分離的代碼，它可以使減少重復(fù)代碼且使程序易讀。

Perl 子程序可以出現(xiàn)在程序的任何地方，語法格式如下：

sub subroutine{
   statements;}

調(diào)用子程序語法格式：

subroutine(參數(shù)列表);

在 Perl 5.0 以下版本調(diào)用子程序方法如下：

&subroutine(參數(shù)列表);

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

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

實例

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

執(zhí)行以上程序，輸出結(jié)果為：

Hello,World!

向子程序傳遞參數(shù)

Perl 子程序可以和其他編程一樣接受多個參數(shù)，子程序參數(shù)使用特殊數(shù)組 @_ 標(biāo)明。

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

不論參數(shù)是標(biāo)量型還是數(shù)組型的，用戶把參數(shù)傳給子程序時，perl默認(rèn)按引用的方式調(diào)用它們。

實例

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

執(zhí)行以上程序，輸出結(jié)果為：

傳入的參數(shù)為:102030第一個參數(shù)值為:10傳入?yún)?shù)的平均值為:20

用戶可以通過改變 @_ 數(shù)組中的值來改變相應(yīng)實際參數(shù)的值。

向子程序傳遞列表

由于 @_ 變量是一個數(shù)組，所以它可以向子程序中傳遞列表。

但如果我們需要傳入標(biāo)量和數(shù)組參數(shù)時，需要把列表放在最后一個參數(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é)果為：

列表為:101234

我們可以向子程序傳入多個數(shù)組和哈希，但是在傳入多個數(shù)組和哈希時，會導(dǎo)致丟失獨立的標(biāo)識。所以我們需要使用引用（下一章節(jié)會介紹）來傳遞。

向子程序傳遞哈希

當(dāng)向子程序傳遞哈希表時，它將復(fù)制到 @_ 中，哈希表將被展開為鍵/值組合的列表。

實例

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

以上程序執(zhí)行輸出結(jié)果為：

age :3name : runoob

子程序返回值

子程序可以向其他編程語言一樣使用 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ù)組和哈希，但是在返回多個數(shù)組和哈希時，會導(dǎo)致丟失獨立的標(biāo)識。所以我們需要使用引用（下一章節(jié)會介紹）來返回多個數(shù)組和函數(shù)。

子程序的私有變量

默認(rèn)情況下，Perl 中所有的變量都是全局變量，這就是說變量在程序的任何地方都可以調(diào)用。

如果我們需要設(shè)置私有變量，可以使用 my 操作符來設(shè)置。

my 操作符用于創(chuàng)建詞法作用域變量，通過 my 創(chuàng)建的變量，存活于聲明開始的地方，直到閉合作用域的結(jié)尾。

閉合作用域指的可以是一對花括號中的區(qū)域，可以是一個文件，也可以是一個 if, while, for, foreach, eval字符串。

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

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

實例

#!/usr/bin/perl# 全局變量$string = "Hello, World!"; 
# 函數(shù)定義sub PrintHello{    # PrintHello 函數(shù)的私有變量    my$string    $string = "Hello, Runoob!";   print"函數(shù)內(nèi)字符串：$string\n";}# 調(diào)用函數(shù)PrintHello();print"函數(shù)外字符串：$string\n";

以上程序執(zhí)行輸出結(jié)果為：

函數(shù)內(nèi)字符串：Hello,Runoob!函數(shù)外字符串：Hello,World!

變量的臨時賦值

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

local 定義的變量不存在于主程序中，但存在于該子程序和該子程序調(diào)用的子程序中。定義時可以給其賦值，如：

實例

#!/usr/bin/perl# 全局變量$string = "Hello, World!"; 
sub PrintRunoob{    # PrintHello 函數(shù)私有變量    local$string;    $string = "Hello, Runoob!"    # 子程序調(diào)用的子程序    PrintMe();    print"PrintRunoob 函數(shù)內(nèi)字符串值：$string\n";}subPrintMe{    print"PrintMe 函數(shù)內(nèi)字符串值：$string\n";}subPrintHello{    print"PrintHello 函數(shù)內(nèi)字符串值：$string\n";}# 函數(shù)調(diào)用PrintRunoob();PrintHello();print"函數(shù)外部字符串值：$string\n";

以上程序執(zhí)行輸出結(jié)果為：

PrintMe函數(shù)內(nèi)字符串值：Hello,Runoob!PrintRunoob函數(shù)內(nèi)字符串值：Hello,Runoob!PrintHello函數(shù)內(nèi)字符串值：Hello,World!函數(shù)外部字符串值：Hello,World!

靜態(tài)變量

state操作符功能類似于C里面的static修飾符，state關(guān)鍵字將局部變量變得持久。

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

實例

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

以上程序執(zhí)行輸出結(jié)果為：

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

注1：state僅能創(chuàng)建閉合作用域為子程序內(nèi)部的變量。

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

注3：state可以聲明標(biāo)量、數(shù)組、哈希。但在聲明數(shù)組和哈希時，不能對其初始化（至少Perl 5.14不支持）。

子程序調(diào)用上下文

子程序調(diào)用過程中，會根據(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é)果為：

SunJun1215:58:0920162106-6-1215:58:9

以上是“Perl子程序怎么用”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對大家有所幫助，如果還想學(xué)習(xí)更多知識，歡迎關(guān)注億速云行業(yè)資訊頻道！