使用find_cycle找到问题后如何处理？

huhuegg

不知道如何处理，请教~~

1.     tcp_connect $ip,$port,
   
2.         sub {
   
3.             my ($sock)=@_;
   
4.             unless ($sock) {
   
5.                 $log->w_log(5,"[conn_node] Could not connect to Node $ip:$port");
   
6.             }
   
7.             eval {
   
8.                 $nodes->{"$nodeID"}->{handle} = AnyEvent::Handle->new (
   
9.                     fh => $sock,
   
10.                     on_read => sub {
    
11.                         my $buf = delete $nodes->{"$nodeID"}->{handle}->{rbuf};
    
12.                         if (defined($buf)) {
    
13.                             push(@{$nodes->{"$nodeID"}->{recv_buf}},$buf);
    
14.                             &check_recv_buf("node",$nodeID);
    
15.                         }
    
16.                         find_cycle($nodes);
    
17.                     }，
    
18.            };
    
19.             .....
    
20.        }
    

复制代码

输出：

1. 
   
2.                              $A->{'6'} => \%W                           
   
3.                         $W->{'handle'} => \%AnyEvent::Handle::X         
   
4.         $AnyEvent::Handle::X->{'on_read'} => \&AA                          
   
5.                    $AA variable $nodes => \$E                           
   
6.                                    $E => \%A
   

复制代码

huhuegg

是不是my $buf = delete $nodes->{"$nodeID"}->{handle}->{rbuf};这句有问题？