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

Issue #94

Browse source
This commit is contained in:
Jean-Marie RENOUARD 2015-07-20 09:46:48 +02:00
parent 78680600cb
commit 6ad5b60ec6
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
mysqltuner.pl
View file

@ -496,13 +496,16 @@ sub select_one {
sub get_tuning_info { sub get_tuning_info {
my @infoconn = select_array "\\s"; my @infoconn = select_array "\\s";
my ($tkey, $tval);
@infoconn = grep {!/Threads:/ and !/Connection id:/ and !/pager:/ and !/Using/ } @infoconn; @infoconn = grep {!/Threads:/ and !/Connection id:/ and !/pager:/ and !/Using/ } @infoconn;
foreach my $line (@infoconn) { foreach my $line (@infoconn) {
if ($line =~ /\s*(.*):\s*(.*)/) { if ($line =~ /\s*(.*):\s*(.*)/) {
debugprint "$1 => $2\n"; debugprint "$1 => $2\n";
chomp($1); $tkey=$1;
chomp($2); $tval=$2;
$result{'MySQL Client'}{$1} = $2; chomp($tkey);
chomp($tval);
$result{'MySQL Client'}{$tkey} = $tval;
} }
} }
$result{'MySQL Client'}{'Client Path'}=$mysqlcmd; $result{'MySQL Client'}{'Client Path'}=$mysqlcmd;
@ -761,6 +764,7 @@ sub check_architecture {
goodprint "Operating on 32-bit architecture with less than 2GB RAM\n"; goodprint "Operating on 32-bit architecture with less than 2GB RAM\n";
} }
} }
$result{'OS'}{'Architecture'}="$arch bits";
} }
# Start up a ton of storage engine counts/statistics # Start up a ton of storage engine counts/statistics