免费注册 查看新帖 |

ChinaUnix.net

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1214 | 回复: 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 的包
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

ITPUB技术栈

ITPUB技术栈是ITPUB企业打造的垂直于IT领域的知识社群平台,在这里,你既可以是创作者也可以是消费者。如果你的IT生涯丰富多彩,喷薄的个人价值尽可在小栈内体现;如果你渴望找到志同道合的伙伴,拓宽人脉,小栈比跑会场更快。 小栈特色:
1.极高的用户转化率,实现更直接的知识变现;
2.随时随地,刷个朋友圈的时间,实现更长效的信息沉淀;
3.戳痛、难点的专业咨询,更接近成功解决方案的时刻;
4.贴近意见领袖,个人高速成长,迈入更富有价值的人际圈。

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

技术小栈>>
  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP