酷播亮新聞
引用就是指針，Perl 引用是一個標量類型可以指向變數、數組、哈希表（也叫關聯數組）甚至子程序，可以應用在程序的任何地方。
創建引用
定義變數的時候，在變數名前面加個，就得到了這個變數的一個引用，比如:
$scalarref = $foo; # 標量變數引用$arrayref = @ARGV; # 列表的引用$hashref = %ENV; # 哈希的引用$coderef = &handler; # 子過程引用$globref = *foo; # GLOB句柄引用
在數組中我們可以用匿名數組引用，使用 [] 定義：
$aref= [ 1,”foo”,undef,13 ];
匿名數組的元素仍然可以是匿名數組，所以我們可以用這種方法構造數組的數組，可以構造任意維度的數組。
my $aref = [
[1, 2, 3],
[4, 5, 6],
[7, 8, 9],]
在哈希中我們可以用匿名哈希引用，使用 {} 定義：
$href= { APR =>4, AUG =>8 };
我們也可以創建一個沒有子程序名的匿名子程序引用:
$coderef = sub { print “Runoob!
” };
取消引用
取消引用可以根據不同的類型使用 $, @ 或 % 來取消，實例如下：
實例
#!/usr/bin/perl$var = 10;
# $r 引用 $var 標量$r = $var;
# 輸出本地存儲的 $r 的變數值print”$var 為 : “, $$r, “
“;
@var = (1, 2, 3);# $r 引用 @var 數組$r = @var;# 輸出本地存儲的 $r 的變數值print”@var 為: “, @$r, “
“;
%var = (“key1” => 10, “key2” => 20);# $r 引用 %var 數組$r = %var;# 輸出本地存儲的 $r 的變數值print”%var 為 : “, %$r, “
“;
執行以上實例執行結果為：
10 為 : 101 2 3 為: 123%var 為 : key110key220
如果你不能確定變數類型，你可以使用 ref 來判斷，返回值列表如下，如果沒有以下的值返回 false：
SCALAR
ARRAY
HASH
CODE
GLOB
REF
實例如下：
實例
#!/usr/bin/perl$var = 10;$r = $var;print”r 的引用類型 : “, ref($r), “
“;
@var = (1, 2, 3);$r = @var;print”r 的引用類型 : “, ref($r), “
“;
%var = (“key1” => 10, “key2” => 20);$r = %var;print”r 的引用類型 : “, ref($r), “
“;
執行以上實例執行結果為：
r 的引用類型 : SCALAR
r 的引用類型 : ARRAY
r 的引用類型 : HASH
循環引用
循環引用在兩個引用相互包含時出現。你需要小心使用，不然會導致內存泄露，如下實例：
實例
#!/usr/bin/perlmy$foo = 100;$foo = $foo;
print”Value of foo is : “, $$foo, “
“;
執行以上實例執行結果為：
Value of foo is : REF(0x9aae38)
引用函數
函數引用格式: &
調用引用函數格式: & + 創建的引用名。
實例如下：
實例
#!/usr/bin/perl# 函數定義subPrintHash{my(%hash) = @_;
foreach$item(%hash){print”元素 : $item
“; }}%hash = (“name” => “runoob”, “age” => 3);
# 創建函數的引用$cref = &PrintHash;
# 使用引用調用函數&$cref(%hash);
執行以上實例執行結果為：
元素 : age元素 : 3元素 : name元素 : runoob
