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

Merge pull request #655 from jmrenouard/master

Browse source 
CSV dumdir with performanc_schema and information_schema tables dump into CSV file
This commit is contained in:
Jean-Marie Renouard 2023-04-26 00:59:07 +02:00 committed by GitHub
commit 842ae6e582
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 28 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
mysqltuner.pl
View file

@ -111,6 +111,7 @@ my %opt = (
"defaults-extra-file" => '', "defaults-extra-file" => '',
"protocol" => '', "protocol" => '',
"dumpdir" => '', "dumpdir" => '',
"stop" => 0,
); );
# Gather the options from the command line # Gather the options from the command line
@ -143,6 +144,7 @@ GetOptions(
'idxstat', 'noidxstat', 'idxstat', 'noidxstat',
'server-log=s', 'protocol=s', 'server-log=s', 'protocol=s',
'defaults-extra-file=s', 'dumpdir=s', 'defaults-extra-file=s', 'dumpdir=s',
'stop'
) )
or pod2usage( or pod2usage(
-exitval => 1, -exitval => 1,
@ -1035,18 +1037,37 @@ sub select_array {
return @result; return @result;
} }
# MySQL Request Array
sub select_array_with_headers {
my $req = shift;
debugprint "PERFORM: $req ";
my @result = `$mysqlcmd $mysqllogin -Bre "\\w$req" 2>>/dev/null`;
if ( $? != 0 ) {
badprint "Failed to execute: $req";
badprint "FAIL Execute SQL / return code: $?";
debugprint "CMD : $mysqlcmd";
debugprint "OPTIONS: $mysqllogin";
debugprint `$mysqlcmd $mysqllogin -Bse "$req" 2>&1`;
#exit $?;
}
debugprint "select_array_with_headers: return code : $?";
chomp(@result);
return @result;
}
# MySQL Request Array # MySQL Request Array
sub select_csv_file { sub select_csv_file {
my $tfile = shift; my $tfile = shift;
my $req = shift; my $req = shift;
debugprint "PERFORM: $req CSV into $tfile"; debugprint "PERFORM: $req CSV into $tfile";
my @result = select_array($req); my @result = select_array_with_headers($req);
open( my $fh, '>', $tfile ) or die "Could not open file '$tfile' $!"; open( my $fh, '>', $tfile ) or die "Could not open file '$tfile' $!";
for my $l (@result) { for my $l (@result) {
$l =~ s/\t/","/g; $l =~ s/\t/","/g;
$l =~ s/^/"/; $l =~ s/^/"/;
$l =~ s/$/"/; $l =~ s/$/"\n/;
print $fh $l; print $fh $l;
print $l if $opt{debug};
} }
close $fh; close $fh;
} }
@ -2653,6 +2674,7 @@ sub calculations {
exit 2; exit 2;
} }
# Per-thread memory
# Per-thread memory # Per-thread memory
if ( mysql_version_ge(4) ) { if ( mysql_version_ge(4) ) {
$mycalc{'per_thread_buffers'} = $mycalc{'per_thread_buffers'} =
@ -3951,6 +3973,7 @@ sub mysqsl_pfs {
); );
} }
} }
exit 0 if ( $opt{stop} == 1 );
# Top user per connection # Top user per connection
subheaderprint "Performance schema: Top 5 user per connection"; subheaderprint "Performance schema: Top 5 user per connection";
@ -6475,6 +6498,7 @@ sub mysql_tables {
} }
infoprint("Dumpdir: $opt{dumpdir}");
# Store all information schema in dumpdir if defined # Store all information schema in dumpdir if defined
if ( defined $opt{dumpdir} and -d "$opt{dumpdir}" ) { if ( defined $opt{dumpdir} and -d "$opt{dumpdir}" ) {
for my $info_s_table ( for my $info_s_table (
@ -6486,7 +6510,9 @@ sub mysql_tables {
"select * from information_schema.$info_s_table" "select * from information_schema.$info_s_table"
); );
} }
exit 0 if ( $opt{stop} == 1 );
} }
exit 0 if ( $opt{stop} == 1 );
foreach ( select_user_dbs() ) { foreach ( select_user_dbs() ) {
my $dbname = $_; my $dbname = $_;
next unless defined $_; next unless defined $_;