#!/usr/local/bin/perl -w # print "\nDOJV INDEX Dead Space\n"; print "

DOJV INDEX Dead Space

\n"; ; $x=`date`; chomp($x); print "

".$x."

\n"; print "
Back\n"; print "\n"; print "\n"; $x=`grep "^#" viw1.log | sort +3n -r > viw.rm0`; open(OLD,"viw.rm0"); while () { if (/^#/) {$_=substr($_,1)} chomp; @words=split(' '); $w0=$words[0]; $w1=$words[1]; $w2=$words[2]; $w3=$words[3]; if ($w3 == 0) {next} print ""; print "\n"; } close(OLD); print "
OWNER.INDEXUsedDeletedDead/Total Ratio
$w0$w1$w2"; printf ("%6.3f",$w3); print "
Back
\n\n\n";