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

Version bump to 0.8.9

Browse source 
Added an option to skip the enumeration/sizing of tables (--skipsize), which should help on servers with lots of tables
Changed the table enumeration/sizing method for MySQL 5 to use information_schema (increased performance drastically)
Adjusted the query_cache_limit recommendation to include the currently set value, rather than 1M each time
Changed the wording for tmp_table_size/max_heap_table_size to make it less confusing
This commit is contained in:
Major Hayden 2008-04-05 16:34:57 +00:00
parent dc73ed5328
commit 6311b077cd
1 changed files with 63 additions and 41 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
mysqltuner.pl
View file

@ -1,5 +1,5 @@
#!/usr/bin/perl -w
# mysqltuner.pl - Version 0.8.6
# mysqltuner.pl - Version 0.8.9
# High Performance MySQL Tuning Script
# Copyright (C) 2006-2008 Major Hayden - major@mhtx.net
#
@ -37,7 +37,7 @@ use diagnostics;
use Getopt::Long;
# Set up a few variables for use in the script
my $tunerversion = "0.8.6";
my $tunerversion = "0.8.9";
my (@adjvars, @generalrec);
# Set defaults
@ -46,6 +46,7 @@ my %opt = (
"nogood" => 0,
"noinfo" => 0,
"nocolor" => 0,
"skipsize" => 0,
);
# Gather the options from the command line
@ -54,6 +55,7 @@ GetOptions(\%opt,
'nogood',
'noinfo',
'nocolor',
'skipsize',
'help',
);
@ -69,6 +71,9 @@ sub usage {
" To run the script with the default options, run the script without arguments\n".
" Allow MySQL server to run for at least 24-48 hours before trusting suggestions\n".
" Some routines may require root level privileges (script will provide warnings)\n\n".
" Performance and Reporting Options\n".
" --skipsize Don't enumerate tables and their types/sizes\n".
" (Recommended for servers with many tables)\n\n".
" Output Options:\n".
" --nogood Remove OK responses\n".
" --nobad Remove negative/suggestion responses\n".
@ -277,6 +282,11 @@ sub check_architecture {
# Start up a ton of storage engine counts/statistics
my (%enginestats,%enginecount);
sub check_storage_engines {
if ($opt{skipsize} eq 1) {
print "\n-------- Storage Engine Statistics -------------------------------------------\n";
infoprint "Skipped due to --skipsize option\n";
return;
}
print "\n-------- Storage Engine Statistics -------------------------------------------\n";
infoprint "Status: ";
my $engines;
@ -287,6 +297,17 @@ sub check_storage_engines {
$engines .= (defined $myvar{'have_isam'} && $myvar{'have_isam'} eq "YES")? greenwrap "+ISAM " : redwrap "-ISAM " ;
$engines .= (defined $myvar{'have_ndbcluster'} && $myvar{'have_ndbcluster'} eq "YES")? greenwrap "+NDBCluster " : redwrap "-NDBCluster " ;
print "$engines\n";
if ($mysqlvermajor eq 5) {
# MySQL 5 servers can have table sizes calculated quickly from information schema
my @templist = `mysql $mysqllogin -Bse "SELECT ENGINE,SUM(DATA_LENGTH),COUNT(ENGINE) FROM information_schema.TABLES WHERE TABLE_SCHEMA NOT IN ('information_schema','mysql') GROUP BY ENGINE ORDER BY ENGINE ASC;"`;
foreach my $line (@templist) {
my ($engine,$size,$count);
($engine,$size,$count) = $line =~ /([a-zA-Z_]*)\s+(\d+)\s+(\d+)/;
$enginestats{$engine} = $size;
$enginecount{$engine} = $count;
}
} else {
# MySQL < 5 servers take a lot of work to get table sizes
my @tblist;
# Now we build a database list, and loop through it to get storage engine stats for tables
my @dblist = `mysql $mysqllogin -Bse "SHOW DATABASES"`;
@ -303,7 +324,7 @@ sub check_storage_engines {
}
# Parse through the table list to generate storage engine counts/statistics
foreach my $line (@tblist) {
$line =~ /([a-zA-Z_]*)\s*(.*)/;
$line =~ /([a-zA-Z_]*)\s+(.*)/;
my $engine = $1;
my $size = $2;
if ($size !~ /^\d+$/) { $size = 0; }
@ -315,6 +336,7 @@ sub check_storage_engines {
$enginecount{$engine} = 1;
}
}
}
while (my ($engine,$size) = each(%enginestats)) {
infoprint "Data in $engine tables: ".hr_bytes_rnd($size)." (Tables: ".$enginecount{$engine}.")"."\n";
}
@ -538,7 +560,7 @@ sub mysql_stats {
} else {
if ($mycalc{'query_cache_efficiency'} < 20) {
badprint "Query cache efficiency: $mycalc{'query_cache_efficiency'}%\n";
push(@adjvars,"query_cache_limit (> 1M, or use smaller result sets)");
push(@adjvars,"query_cache_limit (> ".hr_bytes_rnd($myvar{'query_cache_limit'}).", or use smaller result sets)");
} else {
goodprint "Query cache efficiency: $mycalc{'query_cache_efficiency'}%\n";
}
@ -578,7 +600,7 @@ sub mysql_stats {
badprint "Temporary tables created on disk: $mycalc{'pct_temp_disk'}%\n";
push(@adjvars,"tmp_table_size (> ".hr_bytes_rnd($myvar{'tmp_table_size'}).")");
push(@adjvars,"max_heap_table_size (> ".hr_bytes_rnd($myvar{'max_heap_table_size'}).")");
push(@generalrec,"Be sure that tmp_table_size/max_heap_table_size are equal");
push(@generalrec,"When making adjustments, make tmp_table_size/max_heap_table_size equal");
push(@generalrec,"Reduce your SELECT DISTINCT queries without LIMIT clauses");
} elsif ($mycalc{'pct_temp_disk'} > 25 && $mycalc{'max_tmp_table_size'} >= 256) {
badprint "Temporary tables created on disk: $mycalc{'pct_temp_disk'}%\n";