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' => 'w3big', 'age' => 3);

# 传递哈希
PrintHash(%hash);

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

age : 3
name : w3big

子程序返回值

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

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

#!/usr/bin/perl

# 方法定义
sub add_a_b{
   # 不使用 return
   $_[0]+$_[1];  

   # 使用 return
   # return $_[0]+$_[1];  
}
print add_a_b(1, 2)

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

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

子程序的私有變量

默認情況下，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, w3big!";
   print "函数内字符串：$string\n";
}
# 调用函数
PrintHello();
print "函数外字符串：$string\n";

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

函数内字符串：Hello, w3big!
函数外字符串：Hello, World!

變量的臨時賦值

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

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

#!/usr/bin/perl

# 全局变量
$string = "Hello, World!";

sub Printw3big{
   # PrintHello 函数私有变量
   local $string;
   $string = "Hello, w3big!";
   # 子程序调用的子程序
   PrintMe();
   print "Printw3big 函数内字符串值：$string\n";
}
sub PrintMe{
   print "PrintMe 函数内字符串值：$string\n";
}

sub PrintHello{
   print "PrintHello 函数内字符串值：$string\n";
}

# 函数调用
Printw3big();
PrintHello();
print "函数外部字符串值：$string\n";

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

PrintMe 函数内字符串值：Hello, w3big!
Printw3big 函数内字符串值：Hello, w3big!
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

上一頁： Perl時間日期

下一頁： Perl引用

Perl 教程

Perl 子程序(函數)

向子程序傳遞參數

向子程序傳遞列表

向子程序傳遞哈希

子程序返回值

子程序的私有變量

變量的臨時賦值

靜態變量

子程序調用上下文