#!/usr/local/bin/perl -w
#
print "\n
DOJV INDEX Dead Space\n";
print "DOJV INDEX Dead Space
\n"; ;
$x=`date`;
chomp($x);
print "".$x."
\n";
print "Back\n";
print "\n";
print "OWNER.INDEX | Used | Deleted | Dead/Total Ratio | \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 "$w0 | $w1 | $w2 | ";
print "";
printf ("%6.3f",$w3);
print " | \n";
}
close(OLD);
print "
---|
Back\n\n\n";