六、子程序的引用
perl中子程序的引用與C中函數(shù)的指針類似，構(gòu)造方法如下：
$pointer_to_sub = sub {... declaration of sub ...};
通過所構(gòu)造的引用調(diào)用子程序的方法為：
&$pointer_to_sub(parameters);


·子程序模板
子程序的返回值不僅限于數(shù)據(jù)，還可以返回子程序的引用。返回的子程序在調(diào)用處執(zhí)行，但卻是在最初被創(chuàng)建的調(diào)用處被設(shè)置，這是由Perl對Closure處理的方式?jīng)Q定的。Closure意即如果你定義了一個函數(shù)，它就以最初定義的內(nèi)容運行。(Closure詳見OOP的參考書)下面的例子中，設(shè)置了多個錯誤信息顯示子程序，這樣的子程序定義方法可用于創(chuàng)建模板。

#!/usr/bin/perl
sub errorMsg {
my $lvl = shift;
#
# define the subroutine to run when called.
#
return sub {
my $msg = shift; # Define the error type now.
print "Err Level $lvl:$msg\n"; }; # print later.
}
$severe = errorMsg("Severe");
$fatal = errorMsg("Fatal");
$annoy = errorMsg("Annoying");

&$severe("Divide by zero");
&$fatal("Did you forget to use a semi-colon?");
&$annoy("Uninitialized variable in use");
結(jié)果輸出如下：

Err Level Severe:Divide by zero
Err Level Fatal:Did you forget to use a semi-colon?
Err Level Annoying:Uninitialized variable in use
上例中，子程序errorMsg使用了局域變量$lvl，用于返回給調(diào)用者。當errorMsg被調(diào)用時，$lvl的值設(shè)置到返回的子程序內(nèi)容中，雖然是用的my函數(shù)。三次調(diào)用設(shè)置了三個不同的$lvl變量值。當errorMsg返回時，$lvl的值保存到每次被聲明時所產(chǎn)生的子程序代碼中。最后三句對產(chǎn)生的子程序引用進行調(diào)用時$msg的值被替換，但$lvl的值仍是相應(yīng)子程序代碼創(chuàng)建時的值。
很混淆是嗎？是的，所以這樣的代碼在Perl程序中很少見。
七、數(shù)組與子程序
數(shù)組利于管理相關(guān)數(shù)據(jù)，本節(jié)討論如何向子程序傳遞多個數(shù)組。前面我們講過用@_傳遞子程序的參數(shù)，但是@_是一個單維數(shù)組，不管你傳遞的參數(shù)是多少個數(shù)組，都按序存貯在@_中，故用形如my(@a,@b)=@_; 的語句來獲取參數(shù)值時，全部值都賦給了@a，而@b為空。那么怎么把一個以上的數(shù)組傳遞給子程序呢？方法是用引用。見下例：

#!/usr/bin/perl
@names = (mickey, goofy, daffy );
@phones = (5551234, 5554321, 666 );
$i = 0;
sub listem {
my ($a,$b) = @_;
foreach (@$a) {
print "a[$i] = " . @$a[$i] . " " . "\tb[$i] = " . @$b[$i] ."\n";
$i++;
}
}
&listem(\@names, \@phones);
結(jié)果輸出如下：

a[0] = mickey b[0] = 5551234
a[1] = goofy b[1] = 5554321
a[2] = daffy b[2] = 666

注意：
1、當想傳遞給子程序的參數(shù)是多于一個的數(shù)組時一定要使用引用。
2、一定不要在子程序中使用形如 (@variable)=@_; 的語句處理參數(shù)，除非你想把所有參數(shù)集中到一個長的數(shù)組中。
八、文件句柄的引用
有時，必須將同一信息輸出到不同的文件，例如，某程序可能在一個實例中輸出到屏幕，另一個輸出到打印機，再一個輸出到記錄文件，甚至同時輸出到這三個文件。相比較于每種處理寫一個單獨的語句，可以有更好的實現(xiàn)方式如下：
spitOut(\*STDIN);
spitOut(\*LPHANDLE);
spitOut(\*LOGHANDLE);
其中子程序spitOut的代碼如下：

sub spitOut {
my $fh = shift;
print $fh "Gee Wilbur, I like this lettuce\n";
}
注意其中文件句柄引用的語法為\*FILEHANDLE。