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

来源:互联网 发布:淘宝云客服逆向考试 编辑:程序博客网 时间:2024/05/18 04:50
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

0 0