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

Adding database information

Browse source
This commit is contained in:
root 2015-06-18 22:02:55 +02:00
parent 3b1d4fd1fb
commit 5739dfd230
1 changed files with 80 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

92
mysqltuner.pl
View file

@ -1,5 +1,5 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
# mysqltuner.pl - Version 1.4.4 # mysqltuner.pl - Version 1.4.5
# High Performance MySQL Tuning Script # High Performance MySQL Tuning Script
# Copyright (C) 2006-2014 Major Hayden - major@mhtx.net # Copyright (C) 2006-2014 Major Hayden - major@mhtx.net
# #
@ -29,7 +29,7 @@
# Blair Christensen Hans du Plooy Victor Trac # Blair Christensen Hans du Plooy Victor Trac
# Everett Barnes Tom Krouper Gary Barrueto # Everett Barnes Tom Krouper Gary Barrueto
# Simon Greenaway Adam Stein Isart Montane # Simon Greenaway Adam Stein Isart Montane
# Baptiste M. Cole Turner # Baptiste M. Cole Turner Major Hayden
# #
# Inspired by Matthew Montgomery's tuning-primer.sh script: # Inspired by Matthew Montgomery's tuning-primer.sh script:
# http://forge.mysql.com/projects/view.php?id=44 # http://forge.mysql.com/projects/view.php?id=44
@ -42,9 +42,8 @@ use Getopt::Long;
use File::Basename; use File::Basename;
use Cwd 'abs_path'; use Cwd 'abs_path';
#use Data::Dumper qw/Dumper/; #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.5";
my (@adjvars, @generalrec); my (@adjvars, @generalrec);
# Set defaults # Set defaults
@ -52,6 +51,7 @@ my %opt = (
"nobad" => 0, "nobad" => 0,
"nogood" => 0, "nogood" => 0,
"noinfo" => 0, "noinfo" => 0,
"debug" => 0,
"nocolor" => 0, "nocolor" => 0,
"forcemem" => 0, "forcemem" => 0,
"forceswap" => 0, "forceswap" => 0,
@ -67,11 +67,13 @@ my %opt = (
"reportfile" => 0, "reportfile" => 0,
); );
# Gather the options from the command line # Gather the options from the command line
GetOptions(\%opt, GetOptions(\%opt,
'nobad', 'nobad',
'nogood', 'nogood',
'noinfo', 'noinfo',
'debug',
'nocolor', 'nocolor',
'forcemem=i', 'forcemem=i',
'forceswap=i', 'forceswap=i',
@ -128,6 +130,7 @@ sub usage {
" --nogood Remove OK responses\n". " --nogood Remove OK responses\n".
" --nobad Remove negative/suggestion responses\n". " --nobad Remove negative/suggestion responses\n".
" --noinfo Remove informational responses\n". " --noinfo Remove informational responses\n".
" --debug Print debug information\n".
" --nocolor Don't print output in color\n". " --nocolor Don't print output in color\n".
" --buffers Print global and per-thread buffer values\n". " --buffers Print global and per-thread buffer values\n".
"\n"; "\n";
@ -149,17 +152,19 @@ $opt{nocolor} = 1 if defined($reportfile);
my $good = ($opt{nocolor} == 0)? "[\e[0;32mOK\e[0m]" : "[OK]" ; my $good = ($opt{nocolor} == 0)? "[\e[0;32mOK\e[0m]" : "[OK]" ;
my $bad = ($opt{nocolor} == 0)? "[\e[0;31m!!\e[0m]" : "[!!]" ; my $bad = ($opt{nocolor} == 0)? "[\e[0;31m!!\e[0m]" : "[!!]" ;
my $info = ($opt{nocolor} == 0)? "[\e[0;34m--\e[0m]" : "[--]" ; my $info = ($opt{nocolor} == 0)? "[\e[0;34m--\e[0m]" : "[--]" ;
my $deb = ($opt{nocolor} == 0)? "[\e[0;31mDEBUG\e[0m]" : "[DEBUG]" ;
# Functions that handle the print styles # Functions that handle the print styles
sub prettyprint { sub prettyprint {
print $_[0]; print $_[0];
print $fh $_[0] if defined($fh); print $fh $_[0] if defined($fh);
} }
sub goodprint { prettyprint $good." ".$_[0] unless ($opt{nogood} == 1); } sub goodprint { prettyprint $good." ".$_[0] unless ($opt{nogood} == 1); }
sub infoprint { prettyprint $info." ".$_[0] unless ($opt{noinfo} == 1); } sub infoprint { prettyprint $info." ".$_[0] unless ($opt{noinfo} == 1); }
sub badprint { prettyprint $bad. " ".$_[0] unless ($opt{nobad} == 1); } sub badprint { prettyprint $bad. " ".$_[0] unless ($opt{nobad} == 1); }
sub redwrap { return ($opt{nocolor} == 0) ? "\e[0;31m".$_[0]."\e[0m" : $_[0] ; } sub debugprint { prettyprint $deb. " ".$_[0] unless ($opt{debug} == 0); }
sub greenwrap { return ($opt{nocolor} == 0) ? "\e[0;32m".$_[0]."\e[0m" : $_[0] ; } sub redwrap { return ($opt{nocolor} == 0) ? "\e[0;31m".$_[0]."\e[0m" : $_[0] ; }
sub greenwrap { return ($opt{nocolor} == 0) ? "\e[0;32m".$_[0]."\e[0m" : $_[0] ; }
# Calculates the parameter passed in bytes, and then rounds it to one decimal place # Calculates the parameter passed in bytes, and then rounds it to one decimal place
sub hr_bytes { sub hr_bytes {
@ -203,6 +208,14 @@ sub hr_num {
} }
} }
# Calculate Percentage
sub percentage{
my $value=shift;
my $total=shift;
return 0,00 if $total == 0;
return sprintf("%.2f", ($value*100/$total) );
}
# Calculates uptime to display in a more attractive form # Calculates uptime to display in a more attractive form
sub pretty_uptime { sub pretty_uptime {
my $uptime = shift; my $uptime = shift;
@ -561,8 +574,15 @@ sub security_recommendations {
} }
} }
sub get_replication_status { sub get_replication_status {
prettyprint "\n-------- Replication Metrics -------------------------------------------------\n";
my $slave_status = `$mysqlcmd $mysqllogin -Bse "show slave status\\G"`; my $slave_status = `$mysqlcmd $mysqllogin -Bse "show slave status\\G"`;
if( $slave_status eq '' ) {
infoprint "No replication setup for this server.\n";
return;
}
debugprint "$slave_status \n";
my ($io_running) = ($slave_status =~ /slave_io_running\S*\s+(\S+)/i); my ($io_running) = ($slave_status =~ /slave_io_running\S*\s+(\S+)/i);
my ($sql_running) = ($slave_status =~ /slave_sql_running\S*\s+(\S+)/i); my ($sql_running) = ($slave_status =~ /slave_sql_running\S*\s+(\S+)/i);
my ($seconds_behind_master) = ($slave_status =~ /seconds_behind_master\S*\s+(\S+)/i); my ($seconds_behind_master) = ($slave_status =~ /seconds_behind_master\S*\s+(\S+)/i);
@ -634,6 +654,24 @@ sub check_architecture {
} }
} }
# Request Array
sub select_array {
my $req=shift;
debugprint "PERFORM: $req \n";
my @result=`$mysqlcmd $mysqllogin -Bse "$req"`;
chomp (@result);
return @result;
}
# Request one
sub select_one {
my $req=shift;
debugprint "PERFORM: $req \n";
my $result=`$mysqlcmd $mysqllogin -Bse "$req"`;
chomp ($result);
return $result;
}
# Start up a ton of storage engine counts/statistics # Start up a ton of storage engine counts/statistics
my (%enginestats,%enginecount,$fragtables); my (%enginestats,%enginecount,$fragtables);
sub check_storage_engines { sub check_storage_engines {
@ -663,8 +701,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', 'performance_schema', 'mysql') AND ENGINE IS NOT NULL GROUP BY ENGINE ORDER BY ENGINE ASC;"`; my @templist = `$mysqlcmd $mysqllogin -Bse "SELECT ENGINE,SUM(DATA_LENGTH+INDEX_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+)/;
@ -1202,6 +1240,34 @@ sub mysql_innodb {
goodprint "InnoDB log waits: ".$mystat{'Innodb_log_waits'}."\n"; goodprint "InnoDB log waits: ".$mystat{'Innodb_log_waits'}."\n";
} }
} }
# Recommandations for Innodb
sub mysql_databases {
prettyprint "\n-------- Database Metrics ------------------------------------------------\n";
unless (mysql_version_ge(5,5)) {
infoprint "Skip Database metrics from information schema \n";
return;
}
my @dblist=select_array("SHOW DATABASES;");
infoprint "There is ".scalar(@dblist). " Database(s).\n";
my @totaldbinfo=split /\s/, select_one("SELECT SUM(TABLE_ROWS), SUM(DATA_LENGTH), SUM(INDEX_LENGTH) , SUM(DATA_LENGTH+INDEX_LENGTH) FROM information_schema.TABLES");
infoprint " +-- ROWS : ".($totaldbinfo[0] eq 'NULL'?0:$totaldbinfo[0])."\n";
infoprint " +-- DATA : ".hr_bytes($totaldbinfo[1])."(".percentage($totaldbinfo[1], $totaldbinfo[3])."%)\n";
infoprint " +-- INDEX: ".hr_bytes($totaldbinfo[2])."(".percentage($totaldbinfo[2], $totaldbinfo[3])."%)\n";
infoprint " +-- SIZE : ".hr_bytes($totaldbinfo[3])."\n";
badprint "Index size is larger than data size \n" if $totaldbinfo[1]<$totaldbinfo[2];
foreach (@dblist) {
my @dbinfo=split /\s/, select_one("SELECT TABLE_SCHEMA, SUM(TABLE_ROWS), SUM(DATA_LENGTH), SUM(INDEX_LENGTH) , SUM(DATA_LENGTH+INDEX_LENGTH) FROM information_schema.TABLES WHERE TABLE_SCHEMA='$_' GROUP BY TABLE_SCHEMA ORDER BY TABLE_SCHEMA");
infoprint "Database: ".$dbinfo[0]."\n";
infoprint " +-- ROWS : ".($dbinfo[1] eq 'NULL'?0:$dbinfo[1])."\n";
infoprint " +-- DATA : ".hr_bytes($dbinfo[2])."(".percentage($dbinfo[2], $dbinfo[4])."%)\n";
infoprint " +-- INDEX: ".hr_bytes($dbinfo[3])."(".percentage($dbinfo[3], $dbinfo[4])."%)\n";
infoprint " +-- TOTAL: ".hr_bytes($dbinfo[4])."\n";
badprint "Index size is larger than data size for $dbinfo[0] \n" if $dbinfo[2]<$dbinfo[3];
}
}
# Take the two recommendation arrays and display them at the end of the output # Take the two recommendation arrays and display them at the end of the output
sub make_recommendations { sub make_recommendations {
prettyprint "\n-------- Recommendations -----------------------------------------------------\n"; prettyprint "\n-------- Recommendations -----------------------------------------------------\n";
@ -1236,10 +1302,12 @@ get_all_vars; # Toss variables/status into hashes
validate_mysql_version; # Check current MySQL version validate_mysql_version; # Check current MySQL version
check_architecture; # Suggest 64-bit upgrade check_architecture; # Suggest 64-bit upgrade
check_storage_engines; # Show enabled storage engines check_storage_engines; # Show enabled storage engines
mysql_databases; # Show informations about databases
security_recommendations; # Display some security recommendations security_recommendations; # Display some security recommendations
calculations; # Calculate everything we need calculations; # Calculate everything we need
mysql_stats; # Print the server stats mysql_stats; # Print the server stats
mysql_innodb; # Print InnoDB stats mysql_innodb; # Print InnoDB stats
get_replication_status; # Print replication info
make_recommendations; # Make recommendations based on stats make_recommendations; # Make recommendations based on stats
close_reportfile; # Close reportfile if needed close_reportfile; # Close reportfile if needed