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

Adding eperimental feature with --experiemental

Browse source
This commit is contained in:
Jean-Marie Renouard 2024-02-08 23:11:20 +01:00
parent 30e61d917b
commit ffd7aca201
1 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
mysqltuner.pl
View file

@ -1,4 +1,4 @@
#!/bin/env perl #!env perl
# mysqltuner.pl - Version 2.5.3 # mysqltuner.pl - Version 2.5.3
# High Performance MySQL Tuning Script # High Performance MySQL Tuning Script
# Copyright (C) 2015-2023 Jean-Marie Renouard - jmrenouard@gmail.com # Copyright (C) 2015-2023 Jean-Marie Renouard - jmrenouard@gmail.com
@ -210,8 +210,10 @@ $basic_password_files = "/usr/share/mysqltuner/basic_passwords.txt"
$opt{dbgpattern} = '.*' if ( $opt{dbgpattern} eq '' ); $opt{dbgpattern} = '.*' if ( $opt{dbgpattern} eq '' );
# Activate debug variables
#if ( $opt{debug} ne '' ) { $opt{debug} = 2; }
# Activate experimental calculations and analysis # Activate experimental calculations and analysis
if ( $opt{experimental} ne '' ) { $opt{experimental} = 1; } #if ( $opt{experimental} ne '' ) { $opt{experimental} = 1; }
# check if we need to enable verbose mode # check if we need to enable verbose mode
if ( $opt{feature} ne '' ) { $opt{verbose} = 1; } if ( $opt{feature} ne '' ) { $opt{verbose} = 1; }
@ -7207,6 +7209,8 @@ sub headerprint {
. "\t * Major Hayden <major\@mhtx.net>\n" . "\t * Major Hayden <major\@mhtx.net>\n"
. " >> Bug reports, feature requests, and downloads at http://mysqltuner.pl/\n" . " >> Bug reports, feature requests, and downloads at http://mysqltuner.pl/\n"
. " >> Run with '--help' for additional options and output filtering"; . " >> Run with '--help' for additional options and output filtering";
debugprint("Debug: ".$opt{debug});
debugprint("Experimental: ".$opt{experimental});
} }
sub string2file { sub string2file {
@ -7217,12 +7221,12 @@ sub string2file {
"Unable to open $filename in write mode. Please check permissions for this file or directory"; "Unable to open $filename in write mode. Please check permissions for this file or directory";
print $fh $content if defined($content); print $fh $content if defined($content);
close $fh; close $fh;
debugprint $content if ( $opt{'debug'} ); debugprint $content;
} }
sub file2array { sub file2array {
my $filename = shift; my $filename = shift;
debugprint "* reading $filename" if ( $opt{'debug'} ); debugprint "* reading $filename";
my $fh; my $fh;
open( $fh, q(<), "$filename" ) open( $fh, q(<), "$filename" )
or die "Couldn't open $filename for reading: $!\n"; or die "Couldn't open $filename for reading: $!\n";