mirror of
https://github.com/xcat2/confluent.git
synced 2024-11-22 09:32:21 +00:00
30 lines
928 B
Perl
30 lines
928 B
Perl
# vim: tabstop=4 shiftwidth=4 softtabstop=4
|
|
|
|
# Copyright 2014 IBM Corporation
|
|
#
|
|
# Licensed under the Apache License, Version 2.0 (the "License");
|
|
# you may not use this file except in compliance with the License.
|
|
# You may obtain a copy of the License at
|
|
#
|
|
# http://www.apache.org/licenses/LICENSE-2.0
|
|
#
|
|
# Unless required by applicable law or agreed to in writing, software
|
|
# distributed under the License is distributed on an "AS IS" BASIS,
|
|
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
# See the License for the specific language governing permissions and
|
|
# limitations under the License.
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Confluent::Client;
|
|
|
|
my $client = Confluent::Client->new();
|
|
$client->read('/nodes/n1/power/state');
|
|
my $data = $client->next_result();
|
|
while ($data) {
|
|
if (exists $data->{state}) {
|
|
print $data->{state}->{value} . "\n";
|
|
}
|
|
$data = $client->next_result();
|
|
}
|