25 lines
638 B
Perl
25 lines
638 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings "all";
|
|
|
|
my $str = `ceph osd pool stats`;
|
|
my @arr = split(/\n\n/, $str);
|
|
|
|
my $msg = "{\n \"data\": [\n";
|
|
|
|
foreach my $p (@arr) {
|
|
my @str = split(/\s+/, $p);
|
|
next if ((not defined($str[1])) or ($str[1] eq ''));
|
|
next if ((not defined($str[3])) or ($str[3] eq ''));
|
|
{# in jinja template engine this is comment, so in real script fix this #}
|
|
$msg .= sprintf(" {\n \"\{#POOLID}\": \"%s\",\n", $str[3]);
|
|
$msg .= sprintf(" \"\{#POOLNAME}\": \"%s\"\n },\n", $str[1]);
|
|
}
|
|
chop($msg);
|
|
chop($msg);
|
|
|
|
$msg .= "\n ]\n}\n";
|
|
print $msg;
|
|
|