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

Dumpdir option + sysschema dump

Browse source
This commit is contained in:
Jean-Marie Renouard 2023-03-01 11:16:44 +01:00
parent c35552a652
commit ea29f3e0d4
1 changed files with 23 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
mysqltuner.pl
View file

@ -190,13 +190,8 @@ $opt{pass} = $opt{password} if ( $opt{pass} eq 0 and $opt{password} ne 0 );
if ($opt{dumpdir} ne '') { if ($opt{dumpdir} ne '') {
$opt{dumpdir} = abs_path( $opt{dumpdir} ); $opt{dumpdir} = abs_path( $opt{dumpdir} );
if ( ! -d $opt{dumpdir} ) { if ( ! -d $opt{dumpdir} ) {
#infoprint "Directory $opt{dumpdir} does not exist";
#infoprint "Creating directory $opt{dumpdir} ...";
mkdir $opt{dumpdir} or die "Cannot create directory $opt{dumpdir}: $!"; mkdir $opt{dumpdir} or die "Cannot create directory $opt{dumpdir}: $!";
} }
#else {
# infoprint "Directory $opt{dumpdir} already exists";
#}
} }
# for RPM distributions # for RPM distributions
$basic_password_files = "/usr/share/mysqltuner/basic_passwords.txt" $basic_password_files = "/usr/share/mysqltuner/basic_passwords.txt"
@ -1050,7 +1045,22 @@ sub select_array {
chomp(@result); chomp(@result);
return @result; return @result;
} }
# MySQL Request Array
sub select_csv_file {
my $tfile= shift;
my $req = shift;
debugprint "PERFORM: $req CSV into $tfile";
`$mysqlcmd $mysqllogin -Bse "\\w$req" 2>>/dev/null| sed "s/'/\'/;s/\t/\",\"/g;s/^/\"/;s/$/\"/;s/\n//g" > $tfile`;
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 $?;
}
}
sub human_size { sub human_size {
my ( $size, $n ) = ( shift, 0 ); my ( $size, $n ) = ( shift, 0 );
++$n and $size /= 1024 until $size < 1024; ++$n and $size /= 1024 until $size < 1024;
@ -3939,20 +3949,13 @@ sub mysqsl_pfs {
infoprint "Sys schema Version: " infoprint "Sys schema Version: "
. select_one("select sys_version from sys.version"); . select_one("select sys_version from sys.version");
# Store all sys schema # Store all sys schema in dumpdir if defined
# for my $pfs_view(select_array('use sys;show tables;')){ if ( defined $opt{dumpdir} and -d "$opt{dumpdir}" ) {
#infoprint "$pfs_view" for my $pfs_view(select_array('use sys;show tables;')){
# @$result{'sys'}{$pfs_view}{'headers'}=[]; infoprint "Dumping $pfs_view into $opt{dumpdir}";
# for my $h (select_array("select column_name FROM INFORMATION_SCHEMA.COLUMNS c select_csv_file("$opt{dumpdir}/$pfs_view.csv", "select * from sys.$pfs_view");
# WHERE c.table_name = '$pfs_view' ORDER BY c.ORDINAL_POSITION")) { }
# push @$result{'sys'}{$pfs_view}{'headers'}, $h; }
# }
# exit 1;
# $result{'sys'}{$pfs_view}{'values'}=();
# for my $lQuery (select_array("select * from sys.$pfs_view")) {
# push $result{'sys'}{$pfs_view}{'values'}, $lQuery;
# }
# }
# Top user per connection # Top user per connection
subheaderprint "Performance schema: Top 5 user per connection"; subheaderprint "Performance schema: Top 5 user per connection";
my $nbL = 1; my $nbL = 1;