zookeeper watch 节点

zjtest7-redis:/root/zk# cat a1.pl
use ZooKeeper;
use AnyEvent;
use AE;
use Data::Dumper;
use IO::Socket;
     sub check_port {
                        ( $server, $port ) = ('127.0.0.1','3306');
                              $sock = IO::Socket::INET->new(PeerAddr => $server,
                              PeerPort => $port,
                              Proto => 'tcp');
                             if ($sock)
                                {return 1}
                             else
                                {return 0 };
                   }; 

    my @ip_list=();
   my $zk = ZooKeeper->new(hosts => '120.55.118.6:2181,120.55.118.6:2182,120.55.118.6:2183') ;
   #my $zk = ZooKeeper->new(hosts => '120.55.118.6:2182,120.55.118.6:2183') ;
      print "zk status\n";
         print Dumper($zk->get('/mysql/0001'));
            print "zk status\n";
zjtest7-redis:/root/zk# perl a1.pl
zk status
$VAR1 = '192.168.32.6';
$VAR2 = {
          'dataLength' => 12,
          'cversion' => 0,
          'mtime' => '1471311976986',
          'czxid' => '21474837517',
          'ephemeralOwner' => '240533560774754452',
          'pzxid' => '21474837517',
          'version' => 1,
          'mzxid' => '21474837518',
          'ctime' => '1471311976969',
          'aversion' => 0,
          'numChildren' => 0
        };
zk status

/***************************************

  my $zk_value = $zk->get('/mysql/0001', watcher => sub {
        ###事件状态
        my $event = shift;
        print "触发了事件.";
        print $event->{'type'}."\n";
        print "事件状态.";
        print $event->{'state'}."\n";
        $cv->send($event) }

zookeeper watch 节点