#!/usr/local/bin/perl -w # print "\nDOJV Extents*2 > Free Space\n"; print "

DOJV Extents*2 > Free Space

\n"; print "
Back
\n"; print "
\n";
print "
".`date`."
\n";
open(OLD,"ewh.log");
while () {
   chop;
   $s0='';
   $s1='';
   if (substr($_,length($_)-2,2) eq " 0") {$s0=''; $s1=""}
   print $s0.$_.$s1."\n";
}
close(OLD);
print "
\n"; print "
Back
\n\n\n";