Resource Drift Report

Measure resource drift from a baseline and label the deviation level.

resource_drift.pl

use strict;
use warnings;

my $current = ;
my $baseline = 100;
my $drift = $current - $baseline;
my $drift_status = "normal";

if ($drift >= 25) {
    $drift_status = "high";
} elsif ($drift >= 10) {
    $drift_status = "elevated";
}

print "current=$current drift=$drift status=$drift_status\n";

use strict;
use warnings;

my $current = ;
my $baseline = 100;
my $drift = $current - $baseline;
my $drift_status = "normal";

if ($drift >= 25) {
    $drift_status = "high";
} elsif ($drift >= 10) {
    $drift_status = "elevated";
}

print "current=$current drift=$drift status=$drift_status\n";

use strict;
use warnings;

my $current = ;
my $baseline = 100;
my $drift = $current - $baseline;
my $drift_status = "normal";

if ($drift >= 25) {
    $drift_status = "high";
} elsif ($drift >= 10) {
    $drift_status = "elevated";
}

print "current=$current drift=$drift status=$drift_status\n";

resource drift Resource drift tracks how far current usage has moved from a known baseline value.