N秒間ã ã‘クエリ実行ãƒã‚°ã‚’å–ã‚ŠãŸã„ - Hateburo: kazeburo hatenablogpt-query-digestã ã£ãŸã‚Šèª¿æŸ»ã®ãŸã‚ã«ã€N秒間ã ã‘mysqlã®å…¨ã‚¯ã‚¨ãƒªã®ãƒã‚°ã‚’å–å¾—ã—ãŸã„ã¨ã„ã†ã“ã¨ã¯ã‚ˆãã‚ã‚Šã¾ã™ã‚ˆã ãã‚“ãªæ™‚ã¯ã“ã‚“ãªã‚³ãƒžãƒ³ãƒ‰ã‚’使ã†ã¨ç°¡å˜ã«æŒ‡å®šã®ç§’æ•°slowlogを切り替ãˆã¦ä¿å˜ã€å–得後ã«å…ƒã«æˆ»ã—ã¦ãã‚Œã¾ã™ã€‚ $ slowlog.pl --duration 10 -- --default-extra-file=/hoge/my.cnf -uuser -- ã®ã‚ã¨ã¯mysqlコマンドã«æ¸¡ã™ã‚ªãƒ—ション ソース #!/usr/bin/perl use strict; use warnings; use IO::Handle; use Getopt::Long; use File::Spec; sub find_path { my $pg = shift; my $path; for ( split /:/, $ENV{PATH} ) { if ( -x "$_/$p
{{#tags}}- {{label}}
{{/tags}}