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

Some display fixes

Browse source
This commit is contained in:
Jean-Marie Renouard 2022-02-03 20:00:37 +01:00
parent 8430b6e466
commit d4d680e887
1 changed files with 12 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
mysqltuner.pl
View file

@ -1,7 +1,7 @@
#!/usr/bin/env perl #!/usr/bin/env perl
# mysqltuner.pl - Version 1.8.9 # mysqltuner.pl - Version 1.9.0
# High Performance MySQL Tuning Script # High Performance MySQL Tuning Script
# Copyright (C) 2006-2021 Major Hayden - major@mhtx.net # Copyright (C) 2006-2022 Major Hayden - major@mhtx.net
# #
# For the latest updates, please visit http://mysqltuner.pl/ # For the latest updates, please visit http://mysqltuner.pl/
# Git repository available at https://github.com/major/MySQLTuner-perl # Git repository available at https://github.com/major/MySQLTuner-perl
@ -56,7 +56,7 @@ use Cwd 'abs_path';
#use Env; #use Env;
# Set up a few variables for use in the script # Set up a few variables for use in the script
my $tunerversion = "1.8.9"; my $tunerversion = "1.9.0";
my ( @adjvars, @generalrec ); my ( @adjvars, @generalrec );
# Set defaults # Set defaults
@ -1582,25 +1582,26 @@ sub get_os_release {
} }
sub get_fs_info { sub get_fs_info {
my @sinfo = `df -P | grep '%'`; my @sinfo = `df -Ph | grep '%'`;
my @iinfo = `df -Pi| grep '%'`; my @iinfo = `df -Pi| grep '%'`;
shift @iinfo; shift @iinfo;
@sinfo = map { @sinfo = map {
my $v = $_; my $v = $_;
$v =~ s/.*\s(\d+)%\s+(.*)/$1\t$2/g; $v =~ s/.*\s(\d+.)\s(\d+)%\s+(.*)/$2\t$3\t$1/g;
$v; $v;
} @sinfo; } @sinfo;
foreach my $info (@sinfo) { foreach my $info (@sinfo) {
next if $info =~ m{(\d+)\t/(run|dev|sys|proc|snap)($|/)}; next if $info =~ m{(\d+)\t/(run|dev|sys|proc|snap)($|/)};
if ( $info =~ /(\d+)\t(.*)/ ) { if ( $info =~ /(\d+)\t(.*)/ ) {
if ( $1 > 85 ) { if ( $1 > 85 ) {
badprint "mount point $2 is using $1 % total space"; badprint "mount point $2 is using $1 % total space (free: $3)";
push( @generalrec, "Add some space to $2 mountpoint." ); push( @generalrec, "Add some space to $2 mountpoint." );
} }
else { else {
infoprint "mount point $2 is using $1 % of total space"; infoprint "mount point $2 is using $1 % of total space (free: $3)";
} }
$result{'Filesystem'}{'Space Pct'}{$2} = $1; $result{'Filesystem'}{'Space Pct'}{$2} = $1;
$result{'Filesystem'}{'Free Space'}{$2} = $3;
} }
} }
@ -6237,7 +6238,7 @@ sub mysql_databases {
} }
my @distinct_column_charset = select_array( my @distinct_column_charset = select_array(
"select DISTINCT(CHARACTER_SET_NAME) from information_schema.COLUMNS where CHARACTER_SET_NAME IS NOT NULL AND TABLE_SCHEMA ='$_'" "select DISTINCT(CHARACTER_SET_NAME) from information_schema.COLUMNS where CHARACTER_SET_NAME IS NOT NULL AND TABLE_SCHEMA ='$_' AND CHARACTER_SET_NAME IS NOT NULL"
); );
infoprint "Charsets for $dbinfo[0] database table column: " infoprint "Charsets for $dbinfo[0] database table column: "
. join( ', ', @distinct_column_charset ); . join( ', ', @distinct_column_charset );
@ -6255,7 +6256,7 @@ sub mysql_databases {
} }
my @distinct_column_collation = select_array( my @distinct_column_collation = select_array(
"select DISTINCT(COLLATION_NAME) from information_schema.COLUMNS where COLLATION_NAME IS NOT NULL AND TABLE_SCHEMA ='$_'" "select DISTINCT(COLLATION_NAME) from information_schema.COLUMNS where COLLATION_NAME IS NOT NULL AND TABLE_SCHEMA ='$_' AND COLLATION_NAME IS NOT NULL"
); );
infoprint "Collations for $dbinfo[0] database table column: " infoprint "Collations for $dbinfo[0] database table column: "
. join( ', ', @distinct_column_collation ); . join( ', ', @distinct_column_collation );
@ -6762,7 +6763,7 @@ __END__
=head1 NAME =head1 NAME
MySQLTuner 1.8.9 - MySQL High Performance Tuning Script MySQLTuner 1.9.0 - MySQL High Performance Tuning Script
=head1 IMPORTANT USAGE GUIDELINES =head1 IMPORTANT USAGE GUIDELINES
@ -7004,7 +7005,7 @@ L<https://github.com/major/MySQLTuner-perl>
=head1 COPYRIGHT AND LICENSE =head1 COPYRIGHT AND LICENSE
Copyright (C) 2006-2021 Major Hayden - major@mhtx.net Copyright (C) 2006-2022 Major Hayden - major@mhtx.net
For the latest updates, please visit http://mysqltuner.pl/ For the latest updates, please visit http://mysqltuner.pl/