[root@master Webqq]# cat t23.pl
$var='aaa';
$refvar=$var;
print "$$refvar
";
@arr=qw/1 3 5/;
$refarr=@arr;
print @$refarr;
print "
";
%hash=(a=>1,b=>2,c=>3);
$refhash=\%hash;
print %$refhash;
print "
";
[root@master Webqq]# perl t23.pl
aaa
135
c3a1b2
[root@master perl]# cat m9.pl
@sample=(11.233,{3=>4,”hello” =>[6,7]});
print “$sample[0] is sample[0]
”;print“$sample[1] is sample[1]
”;
print “$sample[2] is sample[2]
”;print“$sample[1]3issample[1]{3}
”;
print “$sample[1]{hello} is sample[1]hello
”;print“$sample[1]hello[1]issample[1]{hello}[1]
”;
[root@master perl]# perl m9.pl
sample[0]is11.233sample[1] is HASH(0x2271450)
sample[2]issample[1]{3} is 4
sample[1]helloisARRAY(0x225d178)sample[1]{hello}[1] is
{} hash引用
[] 数组引用