微信涉及的重要数据结构-2

jrhmpt01:/root/wx# cat k2.pl 
$VAR1 = {
'AddMsgList' => [
                            {
'AppMsgType' => 0,
'ImgWidth' => 0,
'RecommendInfo' => {
'NickName' => '',
'QQNum' => 0,
'Content' => ''
                                                 },
'Status' => 3,
'MediaId' => '',
'Content' => '@b553606ac35530a5d99d3372fb89a8e4aa161f28ea6ac3c55e539f7473ce6eb0:<br/>6666',
'Url' => '',
'AppInfo' => {
'Type' => 0,
'AppID' => ''
                                           },
'MsgId' => '1664458959297513240',
'VoiceLength' => 0
                            },
                            {
'AppMsgType' => 0,
'ImgWidth' => 0,
'RecommendInfo' => {
'NickName' => '',
'Ticket' => '',
'Content' => ''
                                                 },
'Status' => 3,
'SubMsgType' => 0,
'Url' => '',
'AppInfo' => {
'Type' => 0,
'AppID' => ''
                                           },
'MsgId' => '1454547856',
'IdVoiceLength' => 0
                            }
                          ],
'AddMsgCount' => 2
};

print $VAR1->{AddMsgList};
print "\n";
foreach ( @{$VAR1->{AddMsgList}}){print "\$_ is $_\n"};
print "222222222222\n";
foreach ( @{$VAR1->{AddMsgList}}){print "\$_ is $_->{MsgId}\n"};
jrhmpt01:/root/wx# perl k2.pl 
ARRAY(0x11428c8)
$_ is HASH(0x11425c8)
$_ is HASH(0x11427c0)
222222222222
$_ is 1664458959297513240
$_ is 1454547856