愿用所有积分求解内存问题

huhuegg

废了，内存问题找了1个月没找到，哪位帮帮忙
脚本2700行...
AnyEvent的tcp服务端

iakuf

脚本和测试的客户端放上来

anyevent

回复 1# huhuegg

1. 看下你的Perl，升到5.14.2
2. 不知道你是怎么组织的。如果你的AnyEvent代码像上次你贴出来的样子，你得从新组织代码
3. 你说的内存问题具体是什么？不释放内存？
4. 你排查一下拿掉不相干的代码，有问题的部分是可以减到270行的
   

huhuegg

perl已经升级到5.16.3
我尝试重新组织一下代码
内存增长速度不确定，有时快有时慢

使用了这些模块
use AnyEvent::Socket;
use AnyEvent::Handle;
use DBI;
use POSIX 'setsid';                         #创建daemon使用
use Encode;                                 #Encode::_utf8_off($bytePack); #将bytePack作为字节数组处理
use Digest::MD5 'md5_hex';
use Mcrypt qw(:ALGORITHMS :MODES :FUNCS);
use Compress::Zlib;                        
use Digest::CRC 'crc';
use MIME::Base64;
use JSON::XS;
use Getopt::Long;
use Data:umper 'Dumper';
use Data::MessagePack;                      #用interface接口
use Devel::Size 'total_size';               #调试数据是否异常增大
use Scalar::Util 'weaken';                  #调试使用weaken(test)
use Egg::Log;                               #日志
use Time::HiRes 'usleep';                   #使用usleep

anyevent

如果是生产环境，建议还是5.14.2

你的问题很不见得和AnyEvent有关，把所有东西全移除，只剩下AnyEvent的服务器端和一个简单的客户端再测试

huhuegg

只剩下AnyEvent我测试过，没有问题

anyevent

权限不够，居然不能回复短消息...
如果AnyEvent本身没问题，那就一点点排查你的模块了。可能的情况比较多