Operational Diagnostics Reports

Saturation Marker Report

Compute a saturation percentage from used and capacity values and classify the fill level.

saturation marker A saturation marker converts raw usage into a percentage label that signals capacity pressure.

Saturation Marker Report

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

my $used = 78;
my $capacity = 100;
my $percent = int($used * 100 / $capacity);
my $sat_status = "clear";

if ($percent >= 90) {
    $sat_status = "saturated";
} elsif ($percent >= 70) {
    $sat_status = "warm";
}

print "used=$used percent=$percent status=$sat_status\n";

use strict;
use warnings;

my $used = 45;
my $capacity = 100;
my $percent = int($used * 100 / $capacity);
my $sat_status = "clear";

if ($percent >= 90) {
    $sat_status = "saturated";
} elsif ($percent >= 70) {
    $sat_status = "warm";
}

print "used=$used percent=$percent status=$sat_status\n";

use strict;
use warnings;

my $used = 96;
my $capacity = 100;
my $percent = int($used * 100 / $capacity);
my $sat_status = "clear";

if ($percent >= 90) {
    $sat_status = "saturated";
} elsif ($percent >= 70) {
    $sat_status = "warm";
}

print "used=$used percent=$percent status=$sat_status\n";

  1. $used ← 78, $capacity ← 100, $percent ← 78, $sat_status ← clear

    4my $used→ 78 = 78; #@used=45, 965my $capacity→ 100 = 100;6my $percent→ 78 = int($used78 * 100 / $capacity100);7my $sat_status→ clear = "clear";

  2. $sat_status ← warm

    10    $sat_status = "saturated";11} elsif ($percent78 >= 70) {12    $sat_status→ warm = "warm";13}

  3. print "used=$used percent=$percent status=$sat_status ";

    15print "used=$used78 percent=$percent78 status=$sat_statuswarm\n";
    outputused=78 percent=78 status=warm

  1. $used ← 45, $capacity ← 100, $percent ← 45, $sat_status ← clear

    4my $used→ 45 = 45;5my $capacity→ 100 = 100;6my $percent→ 45 = int($used45 * 100 / $capacity100);7my $sat_status→ clear = "clear";89if ($percent >= 90) {10    $sat_status = "saturated";11} elsif ($percent >= 70) {12    $sat_status = "warm";13}1415print "used=$used45 percent=$percent45 status=$sat_statusclear\n";
    outputused=45 percent=45 status=clear

  1. $used ← 96, $capacity ← 100, $percent ← 96, $sat_status ← clear

    4my $used→ 96 = 96;5my $capacity→ 100 = 100;6my $percent→ 96 = int($used96 * 100 / $capacity100);7my $sat_status→ clear = "clear";

  2. $sat_status ← saturated

    9if ($percent96 >= 90) {10    $sat_status→ saturated = "saturated";11} elsif ($percent >= 70) {

  3. print "used=$used percent=$percent status=$sat_status ";

    15print "used=$used96 percent=$percent96 status=$sat_statussaturated\n";
    outputused=96 percent=96 status=saturated