- 论坛徽章:
- 0
|
20可用积分
不知道如何处理,请教~~- tcp_connect $ip,$port,
- sub {
- my ($sock)=@_;
- unless ($sock) {
- $log->w_log(5,"[conn_node] Could not connect to Node $ip:$port");
- }
- eval {
- $nodes->{"$nodeID"}->{handle} = AnyEvent::Handle->new (
- fh => $sock,
- on_read => sub {
- my $buf = delete $nodes->{"$nodeID"}->{handle}->{rbuf};
- if (defined($buf)) {
- push(@{$nodes->{"$nodeID"}->{recv_buf}},$buf);
- &check_recv_buf("node",$nodeID);
- }
- find_cycle($nodes);
- },
- };
- .....
- }
复制代码 输出:
- $A->{'6'} => \%W
- $W->{'handle'} => \%AnyEvent::Handle::X
- $AnyEvent::Handle::X->{'on_read'} => \&AA
- $AA variable $nodes => \$E
- $E => \%A
复制代码 |
|