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

Included a lot of new indicators for PFS when using --pfstat or --verbose option

Browse source
This commit is contained in:
root 2016-09-26 18:32:35 +02:00
parent 8263cbda27
commit 20b9fa2a19
2 changed files with 242 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
INTERNALS.md
View file

@ -273,10 +273,36 @@
## MySQLTuner performance schema and sysschema information ## MySQLTuner performance schema and sysschema information
* sys Schema version
* High Cost SQL statements * High Cost SQL statements
* Top 5% slower queries * Top 5% slower queries
* Use temporary tables * Use temporary tables
* Unused Indexes * Unused Indexes
* Full table scans * Full table scans
* thread_pool_size between 4 to 8 for MyIsam usage * Top 5 host per connection
* Top 5 host per statement
* Top 5 host per statement latency
* Top 5 host per lock latency
* Top 5 host per nb full scans
* Top 5 host per rows sent
* Top 5 host per rows modified
* Top 5 host per io
* Top 5 host per io latency
* Top IO type order by total io
* Top IO type order by total latency
* Top IO type order by max latency
* Top Stages order by total io
* Top Stages order by total latency
* Top Stages order by avg latency
* Top 5 host per table scans
* Top 5 Most latency statements
* Top 5 slower queries
* Top 10 nb statement type
* Top statement by total latency
* Top statement by lock latency
* Top statement by full scans
* Top statement by rows sent
* Top statement by rows modified
* Some queries using temp table
* Unused indexes
* Tables with full table scans

217
mysqltuner.pl
View file

@ -3162,45 +3162,250 @@ sub mysqsl_pfs {
infoprint "Sys schema is installed."; infoprint "Sys schema is installed.";
return if ( $opt{pfstat} == 0 ); return if ( $opt{pfstat} == 0 );
#*High Cost SQL statements infoprint "Sys schema Version: ".select_one("select sys_version from sys.version");
infoprint "Top 5 Most latency statements:"; # Top host per connection
subheaderprint "Performance schema: Top 5 host per connection";
my $nbL=1; my $nbL=1;
for my $lQuery(select_array ('select host, total_connections from sys.host_summary order by total_connections desc LIMIT 5')) {
infoprint " +-- $nbL: $lQuery conn(s)";
$nbL++;
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
# Top host per statement
subheaderprint "Performance schema: Top 5 host per statement";
$nbL=1;
for my $lQuery(select_array ('select host, statements from sys.host_summary order by statements desc LIMIT 5')) {
infoprint " +-- $nbL: $lQuery stmt(s)";
$nbL++;
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
# Top host per statement latency
subheaderprint "Performance schema: Top 5 host per statement latency";
$nbL=1;
for my $lQuery(select_array ('select host, statement_avg_latency from sys.host_summary order by statement_avg_latency desc LIMIT 5')) {
infoprint " +-- $nbL: $lQuery";
$nbL++;
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
# Top host per lock latency
subheaderprint "Performance schema: Top 5 host per lock latency";
$nbL=1;
for my $lQuery(select_array ('select host, lock_latency from sys.host_summary_by_statement_latency order by lock_latency desc LIMIT 5')) {
infoprint " +-- $nbL: $lQuery";
$nbL++;
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
# Top host per full scans
subheaderprint "Performance schema: Top 5 host per nb full scans";
$nbL=1;
for my $lQuery(select_array ('select host, full_scans from sys.host_summary_by_statement_latency order by full_scans desc LIMIT 5')) {
infoprint " +-- $nbL: $lQuery";
$nbL++;
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
# Top host per row_sent
subheaderprint "Performance schema: Top 5 host per rows sent";
$nbL=1;
for my $lQuery(select_array ('select host, rows_sent from sys.host_summary_by_statement_latency order by rows_sent desc LIMIT 5')) {
infoprint " +-- $nbL: $lQuery";
$nbL++;
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
# Top host per row modified
subheaderprint "Performance schema: Top 5 host per rows modified";
$nbL=1;
for my $lQuery(select_array ('select host, rows_affected from sys.host_summary_by_statement_latency order by rows_affected desc LIMIT 5')) {
infoprint " +-- $nbL: $lQuery";
$nbL++;
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
# Top host per io
subheaderprint "Performance schema: Top 5 host per io";
$nbL=1;
for my $lQuery(select_array ('select host, file_ios from sys.host_summary order by file_ios desc LIMIT 5')) {
infoprint " +-- $nbL: $lQuery";
$nbL++;
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
# Top host per io latency
subheaderprint "Performance schema: Top 5 host per io latency";
$nbL=1;
for my $lQuery(select_array ('select host, file_io_latency from sys.host_summary order by file_io_latency desc LIMIT 5')) {
infoprint " +-- $nbL: $lQuery";
$nbL++;
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
subheaderprint "Performance schema: Top IO type order by total io";
$nbL=1;
for my $lQuery(select_array ('use sys;select substring(event_name,14), SUM(total)AS total from sys.host_summary_by_file_io_type GROUP BY substring(event_name,14) ORDER BY total DESC;')) {
infoprint " +-- $nbL: $lQuery i/o";
$nbL++;
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
subheaderprint "Performance schema: Top IO type order by total latency";
$nbL=1;
for my $lQuery(select_array ('use sys;select substring(event_name,14), format_time(ROUND(SUM(total_latency),1)) AS total_latency from sys.host_summary_by_file_io_type GROUP BY substring(event_name,14) ORDER BY total_latency DESC;')) {
infoprint " +-- $nbL: $lQuery";
$nbL++;
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
subheaderprint "Performance schema: Top IO type order by max latency";
$nbL=1;
for my $lQuery(select_array ('use sys;select substring(event_name,14), MAX(max_latency) as max_latency from sys.host_summary_by_file_io_type GROUP BY substring(event_name,14) ORDER BY max_latency DESC;')) {
infoprint " +-- $nbL: $lQuery";
$nbL++;
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
subheaderprint "Performance schema: Top Stages order by total io";
$nbL=1;
for my $lQuery(select_array ('use sys;select substring(event_name,7), SUM(total)AS total from sys.host_summary_by_stages GROUP BY substring(event_name,7) ORDER BY total DESC;')) {
infoprint " +-- $nbL: $lQuery i/o";
$nbL++;
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
subheaderprint "Performance schema: Top Stages order by total latency";
$nbL=1;
for my $lQuery(select_array ('use sys;select substring(event_name,7), format_time(ROUND(SUM(total_latency),1)) AS total_latency from sys.host_summary_by_stages GROUP BY substring(event_name,7) ORDER BY total_latency DESC;')) {
infoprint " +-- $nbL: $lQuery";
$nbL++;
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
subheaderprint "Performance schema: Top Stages order by avg latency";
$nbL=1;
for my $lQuery(select_array ('use sys;select substring(event_name,7), MAX(avg_latency) as avg_latency from sys.host_summary_by_stages GROUP BY substring(event_name,7) ORDER BY avg_latency DESC;')) {
infoprint " +-- $nbL: $lQuery";
$nbL++;
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
# Top host per table scans
subheaderprint "Performance schema: Top 5 host per table scans";
$nbL=1;
for my $lQuery(select_array ('select host, table_scans from sys.host_summary order by table_scans desc LIMIT 5')) {
infoprint " +-- $nbL: $lQuery";
$nbL++;
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
#*High Cost SQL statements
subheaderprint "Performance schema: Top 5 Most latency statements";
$nbL=1;
for my $lQuery(select_array ('select query, avg_latency from sys.statement_analysis order by avg_latency desc LIMIT 5')) { for my $lQuery(select_array ('select query, avg_latency from sys.statement_analysis order by avg_latency desc LIMIT 5')) {
infoprint " +-- $nbL: $lQuery"; infoprint " +-- $nbL: $lQuery";
$nbL++; $nbL++;
} }
infoprint "No information found or indicators desactivated." if ($nbL == 1);
#* Top 5% slower queries #* Top 5% slower queries
infoprint "Top 5 slower queries:"; subheaderprint "Performance schema: Top 5 slower queries";
$nbL=1; $nbL=1;
for my $lQuery(select_array ('select query, exec_count from sys.statements_with_runtimes_in_95th_percentile order by exec_count desc LIMIT 5')) { for my $lQuery(select_array ('select query, exec_count from sys.statements_with_runtimes_in_95th_percentile order by exec_count desc LIMIT 5')) {
infoprint " +-- $nbL: $lQuery s"; infoprint " +-- $nbL: $lQuery s";
$nbL++; $nbL++;
} }
infoprint "No information found or indicators desactivated." if ($nbL == 1);
#
subheaderprint "Performance schema: Top 10 nb statement type";
$nbL=1;
for my $lQuery(select_array ('use sys;select statement, sum(total) as total from host_summary_by_statement_type group by statement order by total desc LIMIT 10;')) {
infoprint " +-- $nbL: $lQuery";
$nbL++;
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
subheaderprint "Performance schema: Top statement by total latency";
$nbL=1;
for my $lQuery(select_array ('use sys;select statement, sum(total_latency) as total from sys.host_summary_by_statement_type group by statement order by total desc LIMIT 10;')) {
infoprint " +-- $nbL: $lQuery";
$nbL++;
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
subheaderprint "Performance schema: Top statement by lock latency";
$nbL=1;
for my $lQuery(select_array ('use sys;select statement, sum(lock_latency) as total from sys.host_summary_by_statement_type group by statement order by total desc LIMIT 10;')) {
infoprint " +-- $nbL: $lQuery";
$nbL++;
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
subheaderprint "Performance schema: Top statement by full scans";
$nbL=1;
for my $lQuery(select_array ('use sys;select statement, sum(full_scans) as total from sys.host_summary_by_statement_type group by statement order by total desc LIMIT 10;')) {
infoprint " +-- $nbL: $lQuery";
$nbL++;
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
subheaderprint "Performance schema: Top statement by rows sent";
$nbL=1;
for my $lQuery(select_array ('use sys;select statement, sum(rows_sent) as total from sys.host_summary_by_statement_type group by statement order by total desc LIMIT 10;')) {
infoprint " +-- $nbL: $lQuery";
$nbL++;
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
subheaderprint "Performance schema: Top statement by rows modified";
$nbL=1;
for my $lQuery(select_array ('use sys;select statement, sum(rows_affected) as total from sys.host_summary_by_statement_type group by statement order by total desc LIMIT 10;')) {
infoprint " +-- $nbL: $lQuery";
$nbL++;
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
#*Use temporary tables #*Use temporary tables
infoprint "Some queries using temp table:"; subheaderprint "Performance schema: Some queries using temp table";
$nbL=1; $nbL=1;
for my $lQuery(select_array ('select query from sys.statements_with_temp_tables LIMIT 20')) { for my $lQuery(select_array ('select query from sys.statements_with_temp_tables LIMIT 20')) {
infoprint " +-- $nbL: $lQuery"; infoprint " +-- $nbL: $lQuery";
$nbL++; $nbL++;
} }
infoprint "No information found or indicators desactivated." if ($nbL == 1);
#*Unused Indexes #*Unused Indexes
infoprint "Unused indexes:"; subheaderprint "Performance schema: Unused indexes";
$nbL=1; $nbL=1;
for my $lQuery(select_array ('select * from sys.schema_unused_indexes')) { for my $lQuery(select_array ('select * from sys.schema_unused_indexes')) {
infoprint " +-- $nbL: $lQuery"; infoprint " +-- $nbL: $lQuery";
$nbL++; $nbL++;
} }
infoprint "No information found or indicators desactivated." if ($nbL == 1);
#* Full table scans #* Full table scans
#select * from sys.`schema_tables_with_full_table_scans` #select * from sys.`schema_tables_with_full_table_scans`
infoprint "Tables with full table scans:"; subheaderprint "Performance schema: Tables with full table scans";
$nbL=1; $nbL=1;
for my $lQuery(select_array ('select * from sys.schema_tables_with_full_table_scans order by rows_full_scanned DESC')) { for my $lQuery(select_array ('select * from sys.schema_tables_with_full_table_scans order by rows_full_scanned DESC')) {
infoprint " +-- $nbL: $lQuery"; infoprint " +-- $nbL: $lQuery";
$nbL++; $nbL++;
} }
infoprint "No information found or indicators desactivated." if ($nbL == 1);
} }
# Recommendations for Ariadb # Recommendations for Ariadb