引用:变量前加个"\",就成了引用,类似于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