解hash引用

uat-prx02:/root# cat a3.pl 
%hash=(a=>1,b=>2);
print %hash;
print "
";
print $hash{a};
print "
";
print "222222222222222
";

$var={'AddMsgList' => [{'a'=>1,'b'=>2},{'a'=>3,'b'=>4}]};
print $var;
print "
";
print "3333333333333333
";
use Data::Dumper;
 my $xx= Dumper($var);
print $xx;
print "
";

print "4444444444444444
";
##数组引用
print $var->{AddMsgList};
print "
";
##解数组引用
print @{$var->{AddMsgList}};
print "
";

##访问数组元素
#
foreach (@{$var->{AddMsgList}}){print "$_ is $_
"};


print "555555555555555555
";
foreach $m (@{$var->{AddMsgList}}){print %{$m};print $$m{a};print "
"};

##解引用
print "6666666666666666666
";

foreach (@{$var->{AddMsgList}}){print "$_ is $_->{a}
"};

uat-prx02:/root# perl a3.pl 
a1b2
1
222222222222222
HASH(0x248dc38)
3333333333333333
$VAR1 = {
          'AddMsgList' => [
                            {
                              'a' => 1,
                              'b' => 2
                            },
                            {
                              'a' => 3,
                              'b' => 4
                            }
                          ]
        };

4444444444444444
ARRAY(0x23ed058)
HASH(0x23c3b98)HASH(0x23ed820)
$_ is HASH(0x23c3b98)
$_ is HASH(0x23ed820)
555555555555555555
a1b21
a3b43
6666666666666666666
$_ is 1
$_ is 3