AnyEvent::Socket判斷連接斷開異常

huhuegg

連接了個python的tcpserver，AnyEvent::Handle在python的tcpserver斷開時在on_error和on_eof都無法知道連接被斷開了，為啥阿？

anyevent

貼代碼                  

huhuegg

與perl的socket沒發(fā)現(xiàn)問題，相同代碼

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.         };

復(fù)制代碼

anyevent

你貼的客戶端的代碼中我沒有看到$cv->send，猜測是你服務(wù)器端做$cv->send，但這不符合常理。一般情況下是客戶端做$cv->send，服務(wù)器端會捕捉到on_eof

你說用Perl的服務(wù)器端的話，客戶端就可以捕捉到on_eof，猜測是因為你寫的Perl服務(wù)器端做了$cv->send，這樣客戶端就可以捕捉到on_eof了

ps.建議用push_read和push_write，“delete $_[0]->{rbuf};”并不好，缺乏靈活性，并不適用于項目中，也就是寫簡單例子時候用一下