print "********READ-WRITE RATIO********\n\n";
#The r/w ratio is of course (Com_select + Qcache_hits)/(Com_insert+Com_update+Com_delete+Com_replace)
my $cs = $dbh->prepare("show status like 'com_select'");
my $qch = $dbh->prepare("show status like 'qcache_hits'");
my $ci = $dbh->prepare("show status like 'com_insert'");
my $cu = $dbh->prepare("show status like 'com_update'");
my $cd = $dbh->prepare("show status like 'com_delete'");
my $cr = $dbh->prepare("show status like 'com_replace'");
$cs->execute();
$qch->execute();
$ci->execute();
$cu->execute();
$cd->execute();
$cr->execute();


while (my @csr = $cs->fetchrow_array())
{
while (my @qchr = $qch->fetchrow_array())
{
print "\tCom_select: $csr[1]\n";
print "\tQcahce_hits: $qchr[1]\n";
my $result = ($csr[1] + $qchr[1]);
print "The select rate is :$result\n";
}
}
$qch->finish();
$cs->finish();

while (my @cir = $ci->fetchrow_array())
{
while (my @cur = $cu->fetchrow_array())
{
while (my @cdr = $cd->fetchrow_array())
{
while (my @crr = $cr->fetchrow_array())
{
print "\tCom_Insert: $cir[1]\n"; 
print "\tCom_Update: $cur[1]\n";
print "\tCom_Delete: $cdr[1]\n";
print "\tCom_Replace: $crr[1]\n";
my $ir =($cir[1] + $cur[1] + $cdr[1] + $crr[1]);
print "The insert rate is $ir\n";
} 
}
}
}
$ci->finish();
$cu->finish();
$cd->finish();
$cr->finish();