c3mc-mon-aws-nlb-dump

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

$|++;

=head1 SYNOPSIS

 $0

=cut

my @col = qw( LoadBalancerArn 服务树 实例ID 业务负责人 );
my $col = join " ", @col;
my @x = `c3mc-device-data-get curr networking aws-nlb $col`;
die "get data fail" if $?;
chomp @x;

my @mon = qw( last-hostcount avg-active );

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

map{ $mon{'last-hostcount'}{$_} = 0 if defined $mon{'avg-active'}{$_} && ! defined $mon{'last-hostcount'}{$_} }keys %{$mon{'avg-active'}};

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