c3mc-mon-aws-ec2-avg-cpu-dump

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

$|++;

use LWP::UserAgent;
use JSON;
use URI::Escape;

=head1 SYNOPSIS

 $0

=cut

my $ua = LWP::UserAgent->new;
$ua->timeout( 30 );

#my $url = sprintf "http://openc3-prometheus:9090/api/v1/query?query=%s", URI::Escape::uri_escape( '100 - avg by(instance)(avg_over_time(node_cpu_idle_percent_summary[1w]))' );
my $url = sprintf "http://openc3-prometheus:9090/api/v1/query?query=%s", URI::Escape::uri_escape( '100 - (100 * sum by (instance)(rate(node_cpu_seconds_total{mode="idle"}[1h])) /  sum by (instance)(rate(node_cpu_seconds_total[1h])))' );

my $res = $ua->get( $url );

die sprintf( "http code %s", $res->code ) unless $res->is_success;

my $v = eval{ JSON::decode_json $res->decoded_content };
die "data no JSON: $@"  if $@;
die "status no success" unless $v->{status} && $v->{status} eq 'success';

for my $x ( @{$v->{data}{result} })
{
    printf "$x->{metric}{instance}\t%0.2f\n", $x->{value}[1];
}