#!/usr/local/bin/perl -w
#
print "\n
DOJV Data Cache Effectiveness - Last 24 Hours\n";
print "DOJV Data Cache Effectiveness - Last 24 Hours
\n";
print "Back\n";
print "\n";
print "DATE - TIME | Logical Reads | Physical Reads | Logical/Total Ratio | \n";
open(OLD,"dev.rm1");
while () {
chop;
@words=split(' ');
$w0=$words[0];
$w1=$words[1];
$w2=$words[2];
if ($w1+$w2>0) {$r=100*$w1/($w1+$w2)} else {$r=100}
print "$w0 | $w1 | $w2 | ";
print "";
printf ("%6.3f",$r);
print " | \n";
}
close(OLD);
print "
---|
Back\n\n\n";