34 lines
966 B
Raku
34 lines
966 B
Raku
#
|
|
# reduxhwm.pl -- analyze highwatermark data in xxxLogfile
|
|
#
|
|
# example interesting line in xxxLogfile
|
|
# 1026[8154da0]: selfserv: Launched thread in slot 37, highWaterMark: 63
|
|
#
|
|
#
|
|
#
|
|
while ( <STDIN> ) {
|
|
chomp;
|
|
($proc, $who, $launched, $thread, $in, $slotx, $slot, $hwm, $highwatermark) = split;
|
|
if ( $launched == "Launched" ) {
|
|
next if ( $slot == 0 );
|
|
$notInteresting++;
|
|
if ( $hwmMax < $highwatermark ){
|
|
$hwmMax = $highwatermark;
|
|
}
|
|
$hwmArray[$slot] += 1;
|
|
$interesting++;
|
|
}
|
|
} # end while()
|
|
|
|
printf ("Interesteing: %d\n", $interesting );
|
|
printf ("Not Interesting: %d\n", $notInteresting - $interesting );
|
|
|
|
foreach $element (@hwmArray) {
|
|
$percent = 100*($element / $interesting);
|
|
$percentTotal += $percent;
|
|
printf("Slot %2d: %d hits, %2.2f percent, %2.2f total percent\n", $i, $element, $percent, $percentTotal );
|
|
$i++;
|
|
}
|
|
printf("Sum of percentages: %3.2f\n", $percentTotal );
|
|
# --- end ---
|