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

option dumpdir stop dumping pfs request result

Browse source 
dumpdir option successed dumping x$ views :)
This commit is contained in:
Jean-Marie Renouard 2023-06-17 22:36:31 +02:00
parent 89619dc379
commit e7e045bb17
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
mysqltuner.pl
View file

@ -1091,6 +1091,7 @@ sub select_csv_file {
my $tfile = shift;
my $req = shift;
debugprint "PERFORM: $req CSV into $tfile";
#return;
my @result = select_array_with_headers($req);
open( my $fh, '>', $tfile ) or die "Could not open file '$tfile' $!";
for my $l (@result) {
@ -3990,6 +3991,7 @@ sub mysql_pfs {
subheaderprint "Performance schema";
# Performance Schema
debugprint "Performance schema is " . $myvar{'performance_schema'};
$myvar{'performance_schema'} = 'OFF'
unless defined( $myvar{'performance_schema'} );
if ( $myvar{'performance_schema'} eq 'OFF' ) {
@ -4025,12 +4027,14 @@ sub mysql_pfs {
if ( defined $opt{dumpdir} and -d "$opt{dumpdir}" ) {
for my $sys_view ( select_array('use sys;show tables;') ) {
infoprint "Dumping $sys_view into $opt{dumpdir}";
my $sys_view_table=$sys_view;
$sys_view_table =~ s/\$/\\\$/g;
select_csv_file(
"$opt{dumpdir}/sys_$sys_view.csv",
"select * from sys.\`$sys_view\`"
'select * from sys.\`' . $sys_view_table. '\`'
);
}
return;
#exit 0 if ( $opt{stop} == 1 );
}