mysqlslowq.pl

mysqlslowq.pl

#!/usr/bin/perl

%accounts = ();

$lines = `grep ^# /var/log/mysql_slow_query.log`;

$correctMonth = 0;
foreach (split("\n", $lines)) {
        chomp;
        if ($_ =~ /# User\@Host: ([a-z0-9_]+)/) {
                $db = $1;
                if ($db =~ /_/) {
                        ($user, @blah) = split('_', $db);
                        $accounts{$user} = $db;
                } else {
                        $accounts{'system'} = $db;
                }
        }
}


@sorted = sort keys(%accounts);
$format = "%-15s %-13s\n";
print "\nDATABASES WITH SLOW QUERIES\n\n";
printf $format, $_, $accounts{$_} for (@sorted);