引用

#! perl -w
use 5.014;

my $arrayRef = [1,2,3,4];    #创建一个数组的引用
my $hashRef = {        #创建一个散列的引用
        'a'    =>    '篮球',
        'b'    =>    '足球',
};

say $arrayRef->[0]; #解数组引用第一个值
say @{$arrayRef};    #解数组引用所有的值

say $hashRef->{'a'};
say %{$hashRef};    #解散列引用所有值

say $arrayRef; #打印数组引用的地址值
say $hashRef; #打印散列引用的地址值

#判断是否为散列的引用
if (ref $hashRef eq ref {}) {
    say "this is hash ref";
}
$arrayRef = "aa";
say ref $arrayRef;    #是否为引用
say ref $arrayRef eq ref []; #判断这个引用是否等于数组的引用

输出结果为:
1
1234
篮球
a篮球b足球
ARRAY(0x5ebc94)
HASH(0x5ebde4)
this is hash ref