AnyEvent::Socket判断连接断开异常

huhuegg

连接了个python的tcpserver，AnyEvent::Handle在python的tcpserver断开时在on_error和on_eof都无法知道连接被断开了，为啥阿？

anyevent

贴代码                  

huhuegg

与perl的socket没发现问题，相同代码

1.     tcp_connect $if_ip,$if_port,
   
2.         sub {
   
3.             my ($sock)=@_;
   
4.             unless ($sock) {
   
5.                 $interface->{$if_info}=undef;
   
6.                 delete $interface->{$if_info};
   
7.                 $log->w_log(5,"[conn_interface] Could not connect to interfaceService $if_ip:$if_port");
   
8.                 return;
   
9.             }
   
10.             my $handle;
    
11.             eval {
    
12.                 $handle = AnyEvent::Handle->new (
    
13.                     fh => $sock,
    
14.                     on_read => sub {
    
15.                         my $buf = delete $_[0]->{rbuf};
    
16.                         if (defined($buf)) {
    
17.                             push(@{$interface->{$if_info}->{recv_buf}},$buf);
    
18.                             &check_recv_buf("interface",$if_info);
    
19.                         }
    
20.                     },
    
21.                     on_eof => sub {
    
22.                         $handle->destroy;
    
23.                         undef $interface->{$if_info};
    
24.                         delete $interface->{$if_info};
    
25.                         $log->w_log(5,"[conn_interface] connection eof:$!");
    
26.                     },
    
27.                     on_error => sub {
    
28.                         $handle->destroy;
    
29.                         undef $interface->{$if_info};
    
30.                         delete $interface->{$if_info};
    
31.                         $log->w_log(5,"[conn_interface] connection error");
    
32.                     },
    
33.                 );
    
34.             };
    
35.             unless($handle) {
    
36.                 $interface->{$if_info}=undef;
    
37.                 delete $interface->{$if_info};
    
38.                 $log->w_log(5,"[conn_interface] Create AnyEvent::Handle error!");
    
39.                 return;
    
40.             }
    
41.             $interface->{$if_info}->{status}=1;
    
42.             $interface->{$if_info}->{sock} = $sock;
    
43.         }, sub {
    
44.             5
    
45.         };

复制代码

anyevent

你贴的客户端的代码中我没有看到$cv->send，猜测是你服务器端做$cv->send，但这不符合常理。一般情况下是客户端做$cv->send，服务器端会捕捉到on_eof

你说用Perl的服务器端的话，客户端就可以捕捉到on_eof，猜测是因为你写的Perl服务器端做了$cv->send，这样客户端就可以捕捉到on_eof了

ps.建议用push_read和push_write，“delete $_[0]->{rbuf};”并不好，缺乏灵活性，并不适用于项目中，也就是写简单例子时候用一下