【求助】perl socket server 约30天就挂

ZAROK

    程序的用途是将接收到的http post数据转发到另2个http server，每次都是跑了20-30天就挂。
    对端数据源是2个应用系统，它们post的数据肯定一直有尝试在发送，但我这边的主线程不知是停止了监听还是不再产生子线程，导致不再有子线程日志了(主线程当时是为了提高效率，没让它写日志，只是接受socket并传递给子线程)
    比如这一次是昨晚挂掉的，最终入库的数据停在了昨晚，日志也停在了昨晚同一时间，今天早上ps -T看了一下，有40多个子线程（比平时的三四十个也差不多），只是平时的话这些子线程转发完就threads->exit()，所以过半分钟再看，TID就全变了，这次的这40多个就那么停在那，TID不再变化了。平时这个perl进程的内存使用量290MB，内存总大小24G，线程数也不多，内存使用率也不高，能是什么原因呢？
    ——之前有看到仙子姐姐对于 http://bbs.chinaunix.net/thread-651808-1-1.html 的回复

while($client = $server->accept())
这里你这样写，不死掉才怪呢。

   所以我特别想知道我的程序会不会也是因为这个挂的？
    产生子线程的历史数量应该不会成问题吧？我看到最后一条日志中的threads->tid()结果是729537（这是第729537个子线程），这个数字好像也没什么特别的。

    ——由于代码较长，为便于查看，我截取了主要的部分，大家能看出挂掉的原因是什么吗？

1. #!/usr/bin/perl
   
2. use IO::Socket::INET;
   
3. use threads;
   
4. use REST::Client;
   
5. exit 0 if fork;
   
6. 
   
7. my @forward = (
   
8.     'http://10.1.1.10:8001',
   
9.     'http://10.1.1.20:8001'
   
10. );
    
11. 
    
12. my $socket = IO::Socket::INET->new(
    
13.     LocalPort => 8000,
    
14.     Proto => 'tcp',
    
15.     Listen => 100,
    
16.     Reuse => 1 ) or die $@;
    
17. 
    
18. while (my $client = $socket->accept()) {
    
19.     threads->new(\&thread_work, $client)->detach();
    
20. }
    
21. 
    
22. sub thread_work {
    
23.     my $thread_id = threads->tid();
    
24.     my $client = shift;
    
25. 
    
26.     #从socket读取
    
27.     #记录日志
    
28.     #向@forward转发
    
29.     #记录日志
    
30. }

复制代码

PS: 之所以detach()的原因是这个程序的子线程实在没什么有价值的信息可返回给主线程的，有意义的消息直接都写进日志了。

dahe_1984

你说的挂是什么意思？程序不工作了,但是服务器系统资源还有很多？

什么叫做40多个线程停住了？产生的线程不工作了？什么都不干？

ZAROK

回复 2# dahe_1984

是的，主线程的两行代码中，$client=$socket->accept()能否成功暂无法知道（client是别人家的应用），但threads->new(\&thread_work, $client)->detach()肯定是不再执行了（从外边看，不再有新的线程产生，主线程还在），已存在的40个线程也不再记录日志了。
我有时看到有人说不能写成 while(my $client=$socket->accept()) ，也见过有人写成while(1) {next unless my $client=$socket->accept(); ....}但一直不理解为什么？意思是$client会有被赋予空值/0值的时候吗？

ZAROK

回复 2# dahe_1984

上一次发生在一月，这一次发生在3月，下一次……感觉就像在等月全食

laputa73

猜想$client没做关闭处理？
还有，既然能跑30天，还纠结什么。
定期重启一下简单干净。
代码的bug总是改不完的。
尤其涉及多线程+网络.

dahe_1984

楼主你把代码都放出来呗。
大体猜下是线程没回收，纯猜想。