免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1240 | 回复: 1

接收一个7M的包引发的惨案,求解 [复制链接]

论坛徽章:
0
发表于 2013-05-07 18:36 |显示全部楼层
20可用积分
本帖最后由 huhuegg 于 2013-05-07 19:24 编辑

接收了1个7M的包,结果内存吃掉886M,为啥啊?
  1.     my $handle;
  2.     $handle = AnyEvent::Handle->new (
  3.         fh => $fh,
  4.         on_read => sub {
  5.                         $handle->push_read(
  6.                             chunk=>6,   #PackHead(2) + TotalLength(4)
  7.                             sub {
  8.                                 my $head_and_length;
  9.                                 my ($packHead,$totalLength)=unpack("A2i1",$_[1]);
  10.                                 if ($packHead =~ /^\x0f\x0f/) { #包头格式匹配
  11.                                     if ($totalLength>10485760) { #10M
  12.                                         wlog('notice',"$sub [$client] 指定的包长度不符合要求!");
  13.                                         delete $_[0]->{rbuf};
  14.                                     } else {
  15.                                         $head_and_length=$_[1];
  16.                                         $handle->push_read(
  17.                                             chunk=>$totalLength-6,
  18.                                             sub {
  19.                                                 my $pack = $_[1];
  20.                                                 my($cmd,$data)=check_pack($hash->{$client}->{connKey},$head_and_length . $pack);
  21.                                                 undef $pack;
  22.                                                 #wlog('debug',"$sub [push_read] cmd:$cmd data:$data");
  23.                                                 #check_command($handle,$client,$cmd,$data);
  24.                                             }
  25.                                         );
  26.                                     }
  27.                                 } else {
  28.                                     wlog('notice',"$sub [$client] 包头格式不匹配!");
  29.                                     delete $_[0]->{rbuf};
  30.                                 }
  31.                             }
  32.                         );
  33.         },
  34.    );
复制代码

论坛徽章:
7
戌狗
日期:2013-12-15 20:43:38技术图书徽章
日期:2014-03-05 01:33:12技术图书徽章
日期:2014-03-15 20:31:17未羊
日期:2014-03-25 23:48:20丑牛
日期:2014-04-07 22:37:44巳蛇
日期:2014-04-11 21:58:0915-16赛季CBA联赛之青岛
日期:2016-03-17 20:36:13
发表于 2013-05-07 19:27 |显示全部楼层
吃内存magic 的包
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

SACC2019中国系统架构师大会

【数字转型 架构演进】SACC2019中国系统架构师大会
2019年10月31日~11月2日第11届中国系统架构师大会(SACC2019)将在北京隆重召开。四大主线并行的演讲模式,1个主会场、20个技术专场、超千人参与的会议规模,100+来自互联网、金融、制造业、电商等领域的嘉宾阵容,将为广大参会者提供一场最具价值的技术交流盛会。




----------------------------------------

大会官网>>
  

北京盛拓优讯信息技术有限公司. 版权所有 16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122
中国互联网协会会员  联系我们:huangweiwei@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP