Perl中只有三種基本數據結構，變量可以是數值或字符串，Perl對于底層數據存儲，一般都是直接復制的存儲，那么對于perl引用的相關知識大家了解嗎？別著急，武林技術頻道小編帶你細細了解。
為何使用引用？
在perl4中，hash表中的value字段只能是scalar，而不能是list，這對于有些情況是很不方便的，比如有下面的數據：
Chicago, USA
Frankfurt, Germany
Berlin, Germany
Washington, USA
Helsinki, Finland
New York, USA
我們想要按國家將城市分類，每個國家后面對應城市列表，如果用perl4來做，必須將城市列表組合成字符串才行，如果用perl5就可以用引用來做，有了引用，就可以構造復雜的hash結構，就可以用列表作為hash的值了。
如何定義引用
方法一 使用斜線/
定義變量的時候，在變量名前面加個/，就得到了這個變量的一個引用，比如
?
# 數組的引用
my@array= (1,2,3) ;
my$aref=/@array ;
#哈希的引用
my%hash= ("name"=>"zdd","age"=>30,"gender"=>"male") ;
my$href=/%hash ;
#標量的引用
my$scalar=1 ;
my$sref=/$scalar ;
?
方法二 匿名引用
方法一不是很常用，最常用的還是匿名引用，方法如下
匿名數組引用-用[]定義
$aref= [ 1,"foo",undef,13 ];
匿名數組的元素仍然可以是匿名數組，所以我們可以用這種方法構造數組的數組，可以構造任意維度的數組。
my $aref = [
??????? [1, 2, 3],
??????? [4, 5, 6],
??????? [7, 8, 9],
]
匿名哈希引用-用{}定義
$href= { APR =>4, AUG =>8 };
使用引用
定義了引用之后，可以使用不同的方法來訪問引用，這里主要有三種方法。記憶這三種方法有個訣竅，將他們與普通的變量訪問作比較即可。
方法一
與普通變量的訪問方法相比，假設原來的變量名是name，則此方法在所有name出現的地方用$name代替，如下：
?
?
my $scalar = 1 ;
my @array = (1, 2, 3) ;
my %hash = ('zdd' => 30, 'autumn' => 27) ;
my $sref = /$scalar ;?? # scalar reference
my $aref = /@array ;??? # array reference
my $href = /%hash ;???? # hash reference
?
# 方法一
?
print $$sref, "/n" ; # 用$sref代替sref
print @$aref, "/n" ;?? # 用$aref代替aref
print %$href, "/n" ;?? # 用$href代替href
print $$aref[2], "/n" ;
print $$href{'zdd'}, "/n" ;
#方法二
?
?
?
#與普通變量的訪問方法相比，假設變量原來的名字是name，則現在用{$name}來代替name。
@a @{$aref} An array
?? reverse@a reverse @{$aref} Reverse the array
?? $a[3] ${$aref}[3] An element of the array
?? $a[3] =17;?? ${$aref}[3] =17 Assigning an element
#同理，哈希引用的使用方法如下。
?
?
?
%h %{$href} ? A hash
?? keys%h keys%{$href} ? Get the keys from the hash
?? $h{'red'}? ${$href}{'red'} ? An element of the hash
?? $h{'red'} =17 ${$href}{'red'} =17 ? Assigning an element
?
注意：當{}內部是$var的形式時，{}是可以省略的，也就是說@{$aref}等價于@$aref，不過初學最好養成使用{}的習慣。
方法三
前兩種方法比較繁瑣，這種很簡潔，就是使用箭頭符號->
?
?
$aref->[] 數組解引用
$href->{} 哈希解引用
$href->() 子過程解引用
$aref->[0] =3 ;
$href->{name} ="autumn" ;
$sref=2 ;
也可以將引用賦值給其他變量
my$aref1=$aref ;
my$href1=$href ;
my$scalar1=$scalar ;
?
解引用總結
?
my $scalar = 1 ;
my @array = (1, 2, 3) ;
my %hash = ('zdd' => 30, 'autumn' => 27) ;
my $sref = /$scalar ;?? # scalar reference
my $aref = /@array ;??? # array reference
my $href = /%hash ;???? # hash reference
# 方法一
print $$sref, "/n" ;
print @$aref, "/n" ;
print %$href, "/n" ;
print $$aref[2], "/n" ;
print $$href{'zdd'}, "/n" ;
# 方法二
print ${$sref}, "/n" ;
print @{$aref}, "/n" ;
print %{$href}, "/n" ;
print ${$aref}[2], "/n" ;
print ${$href}{'zdd'}, "/n" ;
# 方法三，不適用于標量
print $aref->[0], "/n" ;
print $href->{'zdd'}, "/n" ;
數組的數組
@a = (
??? [1, 2, 3],
??? [4, 5, 6],
??? [7, 8, 9]
)
我們知道[1, 2, 3]定義了一個（1， 2， 3）的匿名引用，所以數組a實際上包含三個元素，每個元素是一個引用，該引用指向一個數組，所以我們可以用下面的方法來訪問數組元素（注意，下標從0開始）
?
$a[1][2]表示第二行第三列元素6，也可以寫成$a[1]->[2]，不過很少有人這么寫。還可以寫成${$a[1]}[2]，幾乎沒人這么寫！
多維數組的另一個寫法如下：
?
?
my $aref = [1, [2, 3], [4, 5, 6]] ;
print $aref->[0] , "/n" ; #1
print $aref->[1][1], "/n" ; #3
print $aref->[2][0], "/n" ; #4
這兩者的區別有以下幾點：
1）、前者是真正的數組，所以定義變量是使用@，后者是指向匿名數組的引用，所以定義的時候使用$
2）、前者的數組元素是匿名數組，而外層數組則是實體數組，后者無論元素還是外層數組都是匿名數組
3）、前者可以用$a[x][y]的形式訪問，而后者只能用解引用的方式訪問，即$a->[x][y]的形式。
?
數組的哈希，哈希的數組，哈希的哈希
也就是哈希表中的每個元素也是一個哈希表，比如一個學生集合組成的哈希，其key是學生名字（唯一），其值是每個學生的屬性，比如年齡，身高及學號等。
?
?
my $student_properties_of = {
??? 'zdd' => {
??????? 'age' => 30,
??????? 'hight' => 170,
??????? 'id' => '001',
??? },
??? 'autumn' => {
??????? 'age' => 27,
??????? 'hight' => 165,
??????? 'id' => '002',
??? }
} ;
引用的賦值
?
$aref2 = $aref1; 將使得$aref2和$aref1指向同一個數組，如果想將$aref1指向的數組拷貝一份給$aref2的話，使用下面的方法，[]里面對數組進行解引用，而[]以解引用后的數組為內容生成了一個新的匿名數組，又賦值給$aref2。
$aref2 = [@{$aref1}];
注意：不能使用下面的形式，外層的[]是不可缺少的。由于=左邊是標量，所以右邊的數組會被解釋為標量環境，得到的是數組元素個數，而不是元素本身。但是如果加上[]就可以了，這樣perl知道這是一個匿名數組的賦值。
$aref2 = @{$aref1};
判斷一個變量是否是引用
使用ref函數即可，如果變量是引用則返回真，否則返回假。實際上它更智能，它會返回引用對應的類型，比如HASH或者ARRAY。
?
?
my $aref1 = [1, 2, 0] ;
print ref $aref1, "/n" ; #輸出 ARRAY
if (ref $aref1) {
??? print "true/n" ; #輸出 true
}
判斷兩個引用是否指向同一個目標
?
可以用eq，這將以字符串的形式判斷，也可以使用==
?
?
my $aref1 = [1, 2, 0] ;
my $aref2 = $aref1 ;
print $aref1, "/n" ;
print $aref2, "/n" ;
if ($aref1 eq $aref2) {
??? print "reference equal/n" ;
}
if($aref1 == $aref2) {
??? print "reference equal/n" ;
}
?
產生如下輸出：
ARRAY(0x248bec)
ARRAY(0x248bec)
reference equal (eq)
reference equal (==)
以上就是關于分享perl引用的相關知識，如果你對這方面的知識感興趣，可以按照小編的介紹進行操作一番，希望上述的文章能對你有所幫助。
