perl引用的相關知識分享_perl

來源:互聯網
上載者:User

為何使用引用?

在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 (==)

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.