#!/usr/bin/perl -w
use strict;
my $dbName = "steve_track";
my $mostUse = "./mostuse.sql";
my $getPro = "./getprocess.sql";
my $getTab = "./gettable.sql";
my $proOut = "./processOut";
my $tabOut = "./tableOut";
my @files = qw{./mostuse.sql ./getprocess.sql ./gettable.sql ./processOut ./tableOut};
foreach (@files) {
if(-e $_) {
unlink $_;
}
}
open(FOUT, ">> $mostUse");
print(FOUT "use " . $dbName . ";\n");
print(FOUT "SELECT process.processKey,user,cmd, \
MAX(readHeld+writeHeld)-MAX(readWait+writeWait) AS compute \
FROM tableUse JOIN process USING (processKey) \
GROUP BY tableUse.processKey \
ORDER BY compute DESC LIMIT 10;");
my @processes = `mysql < mostuse.sql`;
my ($process,$user,$cmd,$compute) =("","","","");
open(OUT, ">> $getPro");
open(OUT2, ">> $getTab");
print(OUT "use " . $dbName . ";\n");
print(OUT2 "use " . $dbName . ";\n");
foreach (@processes) {
chomp;
($process,$user,$cmd,$compute) = split /\t/;
if(/^\d+/) {
print (OUT "SELECT * FROM process WHERE processKey=$process;\n");
print (OUT2 "SELECT * FROM tableUse WHERE processKey=$process;\n");
}
}
close(OUT);
close(OUT2);
open(OUTF, ">> $proOut");
my @eachprocess = `mysql < getprocess.sql`;
foreach (@eachprocess) {
chomp;
print OUTF join("\t", split(/\t/));
print OUTF "\n";
}
close(OUTF);
open(OUTF2, ">> $tabOut");
my @eachtable = `mysql < gettable.sql`;
foreach (@eachtable) {
chomp;
print OUTF2 join("\t", split(/\t/));
print OUTF2 "\n";
}
close(OUT2);
# |
Change |
User |
Description |
Committed |
|
#1
|
6466 |
Stephen Moon |
track2sql and other script files added |
|
|