Operational Diagnostics Reports

Resource Drift Report

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

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

Resource Drift Report

current
resource_drift.pl
Replay: real traced execution (multi-file project)
use strict;
use warnings;

my $current = 112;
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 = 103;
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 = 130;
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";

  1. $current ← 112, $baseline ← 100, $drift ← 12, $drift_status ← normal

    4my $current→ 112 = 112; #@current=103, 1305my $baseline→ 100 = 100;6my $drift→ 12 = $current112 - $baseline100;7my $drift_status→ normal = "normal";

  2. $drift_status ← elevated

    10    $drift_status = "high";11} elsif ($drift12 >= 10) {12    $drift_status→ elevated = "elevated";13}

  3. print "current=$current drift=$drift status=$drift_status ";

    15print "current=$current112 drift=$drift12 status=$drift_statuselevated\n";
    outputcurrent=112 drift=12 status=elevated

  1. $current ← 103, $baseline ← 100, $drift ← 3, $drift_status ← normal

    4my $current→ 103 = 103;5my $baseline→ 100 = 100;6my $drift→ 3 = $current103 - $baseline100;7my $drift_status→ normal = "normal";89if ($drift >= 25) {10    $drift_status = "high";11} elsif ($drift >= 10) {12    $drift_status = "elevated";13}1415print "current=$current103 drift=$drift3 status=$drift_statusnormal\n";
    outputcurrent=103 drift=3 status=normal

  1. $current ← 130, $baseline ← 100, $drift ← 30, $drift_status ← normal

    4my $current→ 130 = 130;5my $baseline→ 100 = 100;6my $drift→ 30 = $current130 - $baseline100;7my $drift_status→ normal = "normal";

  2. $drift_status ← high

    9if ($drift30 >= 25) {10    $drift_status→ high = "high";11} elsif ($drift >= 10) {

  3. print "current=$current drift=$drift status=$drift_status ";

    15print "current=$current130 drift=$drift30 status=$drift_statushigh\n";
    outputcurrent=130 drift=30 status=high