#!/usr/local/bin/perl -w # print "\nDOJV Data Cache Effectiveness - Last 24 Hours\n"; print "

DOJV Data Cache Effectiveness - Last 24 Hours

\n"; print "
Back\n"; print "\n"; print "\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 ""; print "\n"; } close(OLD); print "
DATE - TIMELogical ReadsPhysical ReadsLogical/Total Ratio
$w0$w1$w2"; printf ("%6.3f",$r); print "
Back
\n\n\n";