微信涉及的重要数据结构-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 "
";
foreach ( @{$VAR1->{AddMsgList}}){print "$_ is $_
"};
print "222222222222
";
foreach ( @{$VAR1->{AddMsgList}}){print "$_ is $_->{MsgId}
"};
jrhmpt01:/root/wx# perl k2.pl 
ARRAY(0x11428c8)
$_ is HASH(0x11425c8)
$_ is HASH(0x11427c0)
222222222222
$_ is 1664458959297513240
$_ is 1454547856