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

DOJV Library Cache Ratios - Last 24 Hours

\n"; ; print "
Back\n"; print "\n"; print "\n"; open(OLD,"lcv.rm1"); while () { chop; @words=split(' '); $w0=substr($words[0],4); $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 - TIMEPinsReloadsPins/Total Ratio
$w0$w1$w2"; printf ("%6.3f",$r); print "
Back
\n\n\n";