hhf/MySQLTuner-perl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adding debug options, Adding Databases size info"

Browse source
This commit is contained in:
root 2015-06-18 21:48:03 +02:00
parent 9d619be2e2
commit 3b1d4fd1fb
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
mysqltuner.pl
View file

@ -41,6 +41,8 @@ use File::Spec;
use Getopt::Long; use Getopt::Long;
use File::Basename; use File::Basename;
use Cwd 'abs_path'; use Cwd 'abs_path';
#use Data::Dumper qw/Dumper/;
# Set up a few variables for use in the script # Set up a few variables for use in the script
my $tunerversion = "1.4.4"; my $tunerversion = "1.4.4";
my (@adjvars, @generalrec); my (@adjvars, @generalrec);
@ -661,7 +663,8 @@ sub check_storage_engines {
infoprint "Status: $engines\n"; infoprint "Status: $engines\n";
if (mysql_version_ge(5)) { if (mysql_version_ge(5)) {
# MySQL 5 servers can have table sizes calculated quickly from information schema # MySQL 5 servers can have table sizes calculated quickly from information schema
my @templist = `$mysqlcmd $mysqllogin -Bse "SELECT ENGINE,SUM(DATA_LENGTH),COUNT(ENGINE) FROM information_schema.TABLES WHERE TABLE_SCHEMA NOT IN ('information_schema','mysql') AND ENGINE IS NOT NULL GROUP BY ENGINE ORDER BY ENGINE ASC;"`; my @templist = `$mysqlcmd $mysqllogin -Bse "SELECT ENGINE,SUM(DATA_LENGTH),COUNT(ENGINE) FROM information_schema.TABLES WHERE TABLE_SCHEMA NOT IN ('information_schema', 'performance_schema', 'mysql') AND ENGINE IS NOT NULL GROUP BY ENGINE ORDER BY ENGINE ASC;"`;
foreach my $line (@templist) { foreach my $line (@templist) {
my ($engine,$size,$count); my ($engine,$size,$count);
($engine,$size,$count) = $line =~ /([a-zA-Z_]*)\s+(\d+)\s+(\d+)/; ($engine,$size,$count) = $line =~ /([a-zA-Z_]*)\s+(\d+)\s+(\d+)/;
@ -669,7 +672,7 @@ sub check_storage_engines {
$enginestats{$engine} = $size; $enginestats{$engine} = $size;
$enginecount{$engine} = $count; $enginecount{$engine} = $count;
} }
$fragtables = `$mysqlcmd $mysqllogin -Bse "SELECT COUNT(TABLE_NAME) FROM information_schema.TABLES WHERE TABLE_SCHEMA NOT IN ('information_schema','mysql') AND Data_free > 0 AND NOT ENGINE='MEMORY';"`; $fragtables = `$mysqlcmd $mysqllogin -Bse "SELECT COUNT(TABLE_NAME) FROM information_schema.TABLES WHERE TABLE_SCHEMA NOT IN ('information_schema','performance_schema', 'mysql') AND Data_free > 0 AND NOT ENGINE='MEMORY';"`;
chomp($fragtables); chomp($fragtables);
} else { } else {
# MySQL < 5 servers take a lot of work to get table sizes # MySQL < 5 servers take a lot of work to get table sizes
@ -679,6 +682,8 @@ sub check_storage_engines {
foreach my $db (@dblist) { foreach my $db (@dblist) {
chomp($db); chomp($db);
if ($db eq "information_schema") { next; } if ($db eq "information_schema") { next; }
if ($db eq "performance_schema") { next; }
if ($db eq "mysql") { next; }
my @ixs = (1, 6, 9); my @ixs = (1, 6, 9);
if (!mysql_version_ge(4, 1)) { if (!mysql_version_ge(4, 1)) {
# MySQL 3.23/4.0 keeps Data_Length in the 5th (0-based) column # MySQL 3.23/4.0 keeps Data_Length in the 5th (0-based) column
@ -715,7 +720,7 @@ sub check_storage_engines {
push(@generalrec,"Add skip-bdb to MySQL configuration to disable BDB"); push(@generalrec,"Add skip-bdb to MySQL configuration to disable BDB");
} }
if (!defined $enginestats{'ISAM'} && defined $myvar{'have_isam'} && $myvar{'have_isam'} eq "YES") { if (!defined $enginestats{'ISAM'} && defined $myvar{'have_isam'} && $myvar{'have_isam'} eq "YES") {
badprint "ISAM is enabled but isn't being used\n"; badprint "MYISAM is enabled but isn't being used\n";
push(@generalrec,"Add skip-isam to MySQL configuration to disable ISAM (MySQL > 4.1.0)"); push(@generalrec,"Add skip-isam to MySQL configuration to disable ISAM (MySQL > 4.1.0)");
} }
# Fragmented tables # Fragmented tables