快捷導(dǎo)航

perl引用的相關(guān)知識(shí)分享

更新時(shí)間：2013年02月09日 20:49:29 投稿：mdxy-dxy

有關(guān)perl引用的相關(guān)知識(shí)，有需要的朋友可以參考下

為何使用引用？

在perl4中，hash表中的value字段只能是scalar，而不能是list，這對(duì)于有些情況是很不方便的，比如有下面的數(shù)據(jù)：
Chicago, USA
Frankfurt, Germany
Berlin, Germany
Washington, USA
Helsinki, Finland
New York, USA

我們想要按國家將城市分類，每個(gè)國家后面對(duì)應(yīng)城市列表，如果用perl4來做，必須將城市列表組合成字符串才行，如果用perl5就可以用引用來做，有了引用，就可以構(gòu)造復(fù)雜的hash結(jié)構(gòu)，就可以用列表作為hash的值了。

如何定義引用

方法一使用斜線\

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

復(fù)制代碼代碼如下:

# 數(shù)組的引用
my@array= (1,2,3) ;
my$aref=\@array ;
#哈希的引用
my%hash= ("name"=>"zdd","age"=>30,"gender"=>"male") ;
my$href=\%hash ;
#標(biāo)量的引用
my$scalar=1 ;
my$sref=\$scalar ;

方法二匿名引用

方法一不是很常用，最常用的還是匿名引用，方法如下
匿名數(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 };

使用引用

定義了引用之后，可以使用不同的方法來訪問引用，這里主要有三種方法。記憶這三種方法有個(gè)訣竅，將他們與普通的變量訪問作比較即可。

方法一

與普通變量的訪問方法相比，假設(shè)原來的變量名是name，則此方法在所有name出現(xiàn)的地方用$name代替，如下：

復(fù)制代碼代碼如下:

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

# 方法一

復(fù)制代碼代碼如下:

print $$sref, "\n" ;　　# 用$sref代替sref
print @$aref, "\n" ;   # 用$aref代替aref
print %$href, "\n" ;   # 用$href代替href
print $$aref[2], "\n" ;
print $$href{'zdd'}, "\n" ;

#方法二

復(fù)制代碼代碼如下:

#與普通變量的訪問方法相比，假設(shè)變量原來的名字是name，則現(xiàn)在用{$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

#同理，哈希引用的使用方法如下。

復(fù)制代碼代碼如下:

%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

注意：當(dāng){}內(nèi)部是$var的形式時(shí)，{}是可以省略的，也就是說@{$aref}等價(jià)于@$aref，不過初學(xué)最好養(yǎng)成使用{}的習(xí)慣。

方法三
前兩種方法比較繁瑣，這種很簡潔，就是使用箭頭符號(hào)->

復(fù)制代碼代碼如下:

$aref->[]　　數(shù)組解引用
$href->{}　　哈希解引用
$href->()　　子過程解引用
$aref->[0] =3 ;
$href->{name} ="autumn" ;
$sref=2 ;
也可以將引用賦值給其他變量
my$aref1=$aref ;
my$href1=$href ;
my$scalar1=$scalar ;

解引用總結(jié)

復(fù)制代碼代碼如下:

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" ;
# 方法三，不適用于標(biāo)量
print $aref->[0], "\n" ;
print $href->{'zdd'}, "\n" ;
數(shù)組的數(shù)組
@a = (
    [1, 2, 3],
    [4, 5, 6],
    [7, 8, 9]
)

我們知道[1, 2, 3]定義了一個(gè)（1， 2， 3）的匿名引用，所以數(shù)組a實(shí)際上包含三個(gè)元素，每個(gè)元素是一個(gè)引用，該引用指向一個(gè)數(shù)組，所以我們可以用下面的方法來訪問數(shù)組元素（注意，下標(biāo)從0開始）

$a[1][2]表示第二行第三列元素6，也可以寫成$a[1]->[2]，不過很少有人這么寫。還可以寫成${$a[1]}[2]，幾乎沒人這么寫！

另一個(gè)寫法如下：

復(fù)制代碼代碼如下:

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

這兩者的區(qū)別有以下幾點(diǎn)：
1）、前者是真正的數(shù)組，所以定義變量是使用@，后者是指向匿名數(shù)組的引用，所以定義的時(shí)候使用$
2）、前者的數(shù)組元素是匿名數(shù)組，而外層數(shù)組則是實(shí)體數(shù)組，后者無論元素還是外層數(shù)組都是匿名數(shù)組
3）、前者可以用$a[x][y]的形式訪問，而后者只能用解引用的方式訪問，即$a->[x][y]的形式。

數(shù)組的哈希，哈希的數(shù)組，哈希的哈希

也就是哈希表中的每個(gè)元素也是一個(gè)哈希表，比如一個(gè)學(xué)生集合組成的哈希，其key是學(xué)生名字（唯一），其值是每個(gè)學(xué)生的屬性，比如年齡，身高及學(xué)號(hào)等。

復(fù)制代碼代碼如下:

my $student_properties_of = {
    'zdd' => {
        'age' => 30,
        'hight' => 170,
        'id' => '001',
    },
    'autumn' => {
        'age' => 27,
        'hight' => 165,
        'id' => '002',
    }
} ;

引用的賦值

$aref2 = $aref1; 將使得$aref2和$aref1指向同一個(gè)數(shù)組，如果想將$aref1指向的數(shù)組拷貝一份給$aref2的話，使用下面的方法，[]里面對(duì)數(shù)組進(jìn)行解引用，而[]以解引用后的數(shù)組為內(nèi)容生成了一個(gè)新的匿名數(shù)組，又賦值給$aref2。
$aref2 = [@{$aref1}];

注意：不能使用下面的形式，外層的[]是不可缺少的。由于=左邊是標(biāo)量，所以右邊的數(shù)組會(huì)被解釋為標(biāo)量環(huán)境，得到的是數(shù)組元素個(gè)數(shù)，而不是元素本身。但是如果加上[]就可以了，這樣perl知道這是一個(gè)匿名數(shù)組的賦值。
$aref2 = @{$aref1};

判斷一個(gè)變量是否是引用

使用ref函數(shù)即可，如果變量是引用則返回真，否則返回假。實(shí)際上它更智能，它會(huì)返回引用對(duì)應(yīng)的類型，比如HASH或者ARRAY。

復(fù)制代碼代碼如下:

my $aref1 = [1, 2, 0] ;
print ref $aref1, "\n" ; #輸出 ARRAY
if (ref $aref1) {
    print "true\n" ; #輸出 true
}

判斷兩個(gè)引用是否指向同一個(gè)目標(biāo)

可以用eq，這將以字符串的形式判斷，也可以使用==

復(fù)制代碼代碼如下:

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" ;
}

產(chǎn)生如下輸出：
ARRAY(0x248bec)
ARRAY(0x248bec)
reference equal (eq)
reference equal (==)