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 节点
