<pre name="code" class="python"><pre name="code" class="python"> use Net::ZooKeeper qw(:node_flags :acls); my $zkh = Net::ZooKeeper->new('localhost:7000'); zjzc01:/zookeeper/server1# cd src zjzc01:/zookeeper/server1/src# cd c zjzc01:/zookeeper/server1/src/c# ls acinclude.m4 c-doc.Doxyfile config.guess configure.ac INSTALL Makefile.am README zookeeper.vcproj aclocal.m4 ChangeLog config.h.in depcomp install-sh Makefile.in src aminclude.am Cli.vcproj config.sub generated LICENSE missing tests autom4te.cache compile configure include ltmain.sh NOTICE.txt zookeeper.sln zjzc01:/zookeeper/server1/src/c# ./configure zjzc01:/zookeeper/server1/src/c# make zjzc01:/zookeeper/server1/src/c# make install zjzc01:/zookeeper/server1/src/c# ./cli_mt 192.168.32.34:2181 Watcher SESSION_EVENT state = CONNECTED_STATE Got a new session id: 0x15436e4ca970005 ls / time = 3 msec /: rc = 0 dubbo zookeeper time = 3 msec [root@rocket c]# ./configure [root@rocket c]# make [root@rocket c]# make install 然后再安装模块: zjzc01:/root# cpan Net::ZooKeeper 查看模块安装: zjzc01:/usr/local/perl/lib/site_perl/5.22.1/Test/TCP# perldoc -l Net::ZooKeeper /usr/local/perl/lib/site_perl/5.22.1/x86_64-linux/Net/ZooKeeper.pm zjzc01:/root# cat zook.pl use Net::ZooKeeper qw(:node_flags :acls); my $zkh = Net::ZooKeeper->new('192.168.32.34:2181'); $zkh->create('/foo', 'bar', 'flags' => ZOO_EPHEMERAL, 'acl' => ZOO_OPEN_ACL_UNSAFE) or die("unable to create node /foo: " . $zkh->get_error() . " "); print "node /foo has value: " . $zkh->get('/foo') . " " zjzc01:/root# perl zook.pl node /foo has value: bar [zk: localhost:2181(CONNECTED) 16] create /zk "mydata" Created /zk [zk: localhost:2181(CONNECTED) 17] get /zk mydata cZxid = 0x1000000ef ctime = Thu Apr 21 13:08:24 CST 2016 mZxid = 0x1000000ef mtime = Thu Apr 21 13:08:24 CST 2016 pZxid = 0x1000000ef cversion = 0 dataVersion = 0 aclVersion = 0 ephemeralOwner = 0x0 dataLength = 6 numChildren = 0 zjzc01:/root# cat zook.pl use Net::ZooKeeper qw(:node_flags :acls); my $zkh = Net::ZooKeeper->new('192.168.32.34:2181'); $zkh->create('/foo', 'xxxxyyyy', 'flags' => ZOO_EPHEMERAL, 'acl' => ZOO_OPEN_ACL_UNSAFE) or die("unable to create node /foo: " . $zkh->get_error() . " "); print "node /foo has value: " . $zkh->get('/foo') . " "; print "node /zk has value: " . $zkh->get('/zk') . " "; print "node /liu has value: " . $zkh->get('/liu') . " " zjzc01:/root# perl zook.pl node /foo has value: xxxxyyyy node /zk has value: mydata node /liu has value: testdata112233