引用就是指針，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!\n" };取消引用
取消引用可以根據不同的類型使用 $, @ 或 % 來取消，實例如下：
實例
#!/usr/bin/perl$var = 10; # $r 引用 $var 標量$r = $var; # 輸出本地存儲的 $r 的變量值print"$var 為 : ", $$r, "\n"; @var = (1, 2, 3);# $r 引用 @var 數組$r = \@var;# 輸出本地存儲的 $r 的變量值print"@var 為: ", @$r, "\n"; %var = ('key1' => 10, 'key2' => 20);# $r 引用 %var 數組$r = \%var;# 輸出本地存儲的 $r 的變量值print"%var 為 : ", %$r, "\n";
執行以上實例執行結果為：
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), "\n"; @var = (1, 2, 3);$r = \@var;print"r 的引用類型 : ", ref($r), "\n"; %var = ('key1' => 10, 'key2' => 20);$r = \%var;print"r 的引用類型 : ", ref($r), "\n";
執行以上實例執行結果為：
r 的引用類型 : SCALAR r 的引用類型 : ARRAY r 的引用類型 : HASH
循環引用
循環引用在兩個引用相互包含時出現。你需要小心使用，不然會導致內存泄露，如下實例：
實例
#!/usr/bin/perlmy$foo = 100;$foo = $foo; print"Value of foo is : ", $$foo, "\n";
執行以上實例執行結果為：
Value of foo is : REF(0x9aae38)
引用函數
函數引用格式: \&
調用引用函數格式: & + 創建的引用名。
實例如下：
實例
#!/usr/bin/perl# 函數定義subPrintHash{my(%hash) = @_; foreach$item(%hash){print"元素 : $item\n"; }}%hash = ('name' => 'runoob', 'age' => 3); # 創建函數的引用$cref = \&PrintHash; # 使用引用調用函數&$cref(%hash);
執行以上實例執行結果為：
元素 : age元素 : 3元素 : name元素 : runoob
“對于任何語言，上下文很重要。對于 Perl 來說，上下文尤其重要。”
上面這句話對 Perl 的設計有著深遠的影響。當初學者意識到Perl中沒有專門的運算符或內置函數來測量數組的長度時，沒有不感到驚訝的。
比方說，讓我們看看下面這段在 Perl 中定義數組的單行代碼。
perl -E 'my @arr = (1,2,3,4); my $sum = 1 + 2 + 3 + @arr; say $sum;'。表達式 1 + 2 + 3 + @arr 是標量上下文。命令提交后，Perl 會在屏幕上打印 10。
在這句代碼中，Perl很智能地理解了我的意圖，將數組解釋為其長度。為什么Perl能夠做得到呢？恰恰就在于Perl語言的爸爸——拉瑞致力于讓Perl能模仿人類的自然語言，把上下文作為極其重要的考慮因素。
我們再來看一個例子。有如下代碼：
use strict;
use warnings;
use v5.10;
my @fruit = qw(apple banana cherry kiwi);
my $count_fruit = @fruit;
say qq/我們有$count_fruit種水果/;請看第5行，我們數組賦值給一個scalar變量。從上下文Perl成功推導出程序員的意圖是求出水果數組的元素個數。你不必明確告訴Perl要做什么，Perl 會理解和猜測您的意圖，然后按照您的意愿執行。這點上，Perl設計得很棒！
如此說來，不必總是明確地、明顯地交代所有東西，才能讓編譯器或者解釋器理解您的意圖，而是借助上下文（環境）來推導。這是不是很美妙？
上下文對程序員和計算機都意義重大。它是Perl 能力的源泉之一。它使 Perl 在成千上萬種編程語言中脫穎而出。很多人喜歡 Perl，其中一個原因是 Perl 的上下文感知功能，本質上是因為他們喜歡更簡短、更有感知力的、和人類思維更接近的代碼。
#編程#