c3mc-mon-qcloud-cdb-dump

#!/data/Software/mydan/perl/bin/perl
use strict;
use warnings;

$|++;

=head1 SYNOPSIS

 $0

=cut

my @col = qw( 实例ID 服务树 名称 业务负责人 Memory Volume );
my $col = join " ", @col;
my @x = `c3mc-device-data-get curr database qcloud-cdb $col`;
die "get data fail" if $?;
chomp @x;

my @mon = qw( avg-cpu max-cpu avg-disk max-disk );

my %mon;
for my $mon ( @mon )
{
    my @xx = `c3mc-mon-qcloud-cdb-${mon}-dump`;
    die "get qcloud-cdb $mon fail" if $?;
    chomp @xx;
    for ( @xx )
    {
        my ( $instance, $val ) = split /\t/, $_;
        $mon{$mon}{$instance} = $val;
    }
}

printf "%s\n", join "\t", @col, @mon;
for my $x ( @x )
{
    my ( $instance ) = split /\t/, $x, scalar @col;
    $instance =~ s/.*:db://;
    printf "%s\n", join "\t", $x, map{ $mon{$_} && defined $mon{$_}{$instance} ? $mon{$_}{$instance} : 'unknown' }@mon;
}