NetServer::Generic 这个包的问题

duketxl

socket连接后 client必须发送一些东西 server 端才会返回数据 是NetServer本身就这么设计的么？

1. 
   
2. my ($sub_chat) = sub {
   
3.         my $sock = shift;
   
4.         while()
   
5.         {
   
6.                 sleep(3);
   
7.                 print "1\n";
   
8.         }
   
9. };
   
10. 
    
11. my ($foo) = new NetServer::Generic;
    
12. $foo->port(9000);
    
13. $foo->hostname("192.168.1.100");
    
14. $foo->start_servers('20');
    
15. $foo->max_servers('500');
    
16. $foo->min_spare_servers('2');
    
17. $foo->server_lifespan(1);
    
18. $foo->callback($sub_chat);
    
19. $foo->mode("prefork");
    
20. $foo->run();
    

复制代码

duketxl

telnet 后 不发送任何东西到server 无法显示返回的1