Perl 引用

引用就是指針，Perl 引用是一個(gè)標(biāo)量類型可以指向變量、數(shù)組、哈希表（也叫關(guān)聯(lián)數(shù)組）甚至子程序，可以應(yīng)用在程序的任何地方。

創(chuàng)建引用

定義變量的時(shí)候，在變量名前面加個(gè)\，就得到了這個(gè)變量的一個(gè)引用，比如:

$scalarref = \$foo;     # 標(biāo)量變量引用
$arrayref  = \@ARGV;    # 列表的引用
$hashref   = \%ENV;     # 哈希的引用
$coderef   = \&handler; # 子過(guò)程引用
$globref   = \*foo;     # GLOB句柄引用

在數(shù)組中我們可以用匿名數(shù)組引用，使用 [] 定義：

$aref= [ 1,"foo",undef,13 ];

匿名數(shù)組的元素仍然可以是匿名數(shù)組，所以我們可以用這種方法構(gòu)造數(shù)組的數(shù)組，可以構(gòu)造任意維度的數(shù)組。

my $aref = [
        [1, 2, 3],
        [4, 5, 6],
        [7, 8, 9],
]

在哈希中我們可以用匿名哈希引用，使用 {} 定義：

$href= { APR =>4, AUG =>8 };

我們也可以創(chuàng)建一個(gè)沒(méi)有子程序名的匿名子程序引用:

$coderef = sub { print "Runoob!\n" };

取消引用

取消引用可以根據(jù)不同的類型使用 $, @ 或 % 來(lái)取消，實(shí)例如下：

實(shí)例

#!/usr/bin/perl
 
$var = 10;
 
# $r 引用 $var 標(biāo)量
$r = \$var;
 
# 輸出本地存儲(chǔ)的 $r 的變量值
print "$var 為 : ", $$r, "\n";
 
@var = (1, 2, 3);
# $r 引用  @var 數(shù)組
$r = \@var;
# 輸出本地存儲(chǔ)的 $r 的變量值
print "@var 為: ",  @$r, "\n";
 
%var = ('key1' => 10, 'key2' => 20);
# $r 引用  %var 數(shù)組
$r = \%var;
# 輸出本地存儲(chǔ)的 $r 的變量值
print "%var 為 : ", %$r, "\n";

執(zhí)行以上實(shí)例執(zhí)行結(jié)果為：

10 為 : 10
1 2 3 為: 123
%var 為 : key110key220

如果你不能確定變量類型，你可以使用 ref 來(lái)判斷，返回值列表如下，如果沒(méi)有以下的值返回 false：

SCALAR
ARRAY
HASH
CODE
GLOB
REF

實(shí)例如下：

實(shí)例

#!/usr/bin/perl
 
$var = 10;
$r = \$var;
print "r 的引用類型 : ", ref($r), "\n";
 
@var = (1, 2, 3);
$r = \@var;
print "r 的引用類型 : ", ref($r), "\n";
 
%var = ('key1' => 10, 'key2' => 20);
$r = \%var;
print "r 的引用類型 : ", ref($r), "\n";

執(zhí)行以上實(shí)例執(zhí)行結(jié)果為：

r 的引用類型 : SCALAR
r 的引用類型 : ARRAY
r 的引用類型 : HASH

循環(huán)引用

循環(huán)引用在兩個(gè)引用相互包含時(shí)出現(xiàn)。你需要小心使用，不然會(huì)導(dǎo)致內(nèi)存泄露，如下實(shí)例：

實(shí)例

#!/usr/bin/perl
 
my $foo = 100;
$foo = \$foo;
 
print "Value of foo is : ", $$foo, "\n";

執(zhí)行以上實(shí)例執(zhí)行結(jié)果為：

Value of foo is : REF(0x9aae38)

引用函數(shù)

函數(shù)引用格式: &

調(diào)用引用函數(shù)格式: & + 創(chuàng)建的引用名。

實(shí)例如下：

實(shí)例

#!/usr/bin/perl
 
# 函數(shù)定義
sub PrintHash{
   my (%hash) = @_;
   
   foreach $item (%hash){
      print "元素 : $item\n";
   }
}
%hash = ('name' => 'runoob', 'age' => 3);
 
# 創(chuàng)建函數(shù)的引用
$cref = \&PrintHash;
 
# 使用引用調(diào)用函數(shù)
&$cref(%hash);

執(zhí)行以上實(shí)例執(zhí)行結(jié)果為：

元素 : age
元素 : 3
元素 : name
元素 : runoob