#!/usr/local/bin/perl -w
#
print "\nDOJV I/O counts - Last 8 Hours\n";
print "DOJV I/O counts - Last 8 Hours
\n";
print "Back\n";
print "\n";
print "| DATE - TIME | Reads | Writes | \n";
open(OLD,"rwv.rm1");
while () {
chop;
@words=split(' ');
$w0=substr($words[0],4);
$w1=$words[1];
$w2=$words[2];
print "| $w0 | $w1 | $w2 | \n";
}
close(OLD);
print "
|---|
Back\n\n\n";