5.引用

引用：变量前加个"\"，就成了引用，类似于C中的指针；

取消引用，或者说使用原变量，根据变量类型，加上相应类型标识符。

#!/usr/bin/perl -w
use feature qw(say);
use Smart::Comments;

my ($var1,@array1,%hash1);
sub hello{
    say "hello";
}
$var1 = 1;
@array1 = qw(a b);
%hash1 = ("A"=>1,"B"=>2);
#ref
my ($ref1,$ref2,$ref3,$ref4) = (\$var1,\@array1,\%hash1,\&hello);   #不能用"."连接
print "$$ref1\n";
print "@$ref2\n";
print "keys:",keys %$ref3,";\tvalues:",values %$ref3,"\n";
print %$ref3,"\n";  #A1B2  
#print %$ref3."\n";  #不是预期的哈希结果，是2/8;print时，"."和","还是有区别的。
#print "%$ref3\n";   #不识别为%hash1,%原样输出，此处打印引用地址
#say $$ref1；   #不识别
#say @$ref2;
#say %$ref3;
&$ref4();

#ref返回引用的类型，除了一下四种，还有GLOB，REF引用类型
print ref $ref1;    #SCALAR
print ref $ref2;    #ARRAY
print ref $ref3;    #HASH
print ref $ref4;    #CODE，即子程序

*print一些变量的值，最好放在引号外，而且连接符用逗号，否则容易得到非预期值。 

匿名引用 ，包括匿名数组、哈希、子程序引用：

...
my $ref1 = [1,"a"];    #$ref1是数组的引用，不是数组;注意是[]
my $ref2 = {"a"=>1,"b"=>2};    #注意是{}
my $ref3 = sub {print "hello\n";};

say ref $ref1;  #ARRAY
say ref $ref2;  #HASH
say ref $ref3;  #CODE