pt-query-digestはPerl！

2019-11-03 YAPC::Nagoya::Tiny 2019
https://yapcjapan.connpass.com/event/146727/

Transcript

1. QURVFSZEJHFTU
   ͸
   1FSMʂʂ 
   :"1$/BHPZB5JOZ
   
   େ஥
   ೳ࢙
   BLB
   JEPOL
2. ࣗݾ঺հ w େ஥
   ೳ࢙
   BLB
   JEPOL
   w גࣜձࣾ͸ͯͳ
   w ΠϯϑϥͱϚωʔδϟۀΛ΍͍ͬͯ·͢
3. */%&9
   ͷޮ͍͍ͯͳ͍
 ΫΤϦΛ୳͢ͷ͕झຯ
4. ޮ͍ͯͳ͍ΫΤϦൃݟʂ /* lib/Giga/Core/Repository/SeriesComment.pm at line 200 */ SELECT COUNT(*) FROM `series_comment` WHERE (`is_public` = '1') AND (`series_id` = ‘10834108156628842496');
 +----+-------------+-||-+-------+------------------------------------+ | id | select_type | || | rows | Extra | +----+-------------+-||-+-------+------------------------------------+ | 1 | SIMPLE | || | 30872 | Using index condition; Using where | +----+-------------+-||-+-------+------------------------------------+ 1 row in set (0.05 sec)
5. ͪΐͬͱҧ͏ͷ͕͋Δͧʜʜʁ /* lib/Giga/Core/Repository/SeriesComment.pm at line 200 */ SELECT COUNT(*) FROM `series_comment` WHERE (`series_id` = ‘10834108156628842496') AND (`is_public` = '1')\G 
 /* lib/Giga/Core/Repository/SeriesComment.pm at line 200 */ SELECT COUNT(*) FROM `series_comment` WHERE (`is_public` = '1') AND (`series_id` = '10834108156628842496')\G
6. )BTI
   3BOEPNJ[BUJPO
   ͡ΌΜ
7. આ໌͠Α͏ʂ w )BTI
   3BOEPNJ[BUJPO
   ͱ͸
   w ϋογϡ͝ͱʹ
   LFZT
   ΍
   WBMVFT
   FBDI
   ͕ϥϯμϜͳॱ൪ʹͳ Δ͜ͱ
   w ಉ͡಺༰
   LFZ
   WBMVF
   ͷϋογϡͰ΋ҧ͏ΦϒδΣΫτͳΒҧ͏ॱ ংͰฦΔ
   w 1FSM
   W
   Ͱ࠾༻͞Ε·ͨ͠
8. ࣮ίʔυ sub get_public_comments_count { args my $class => 'ClassName', my $series => 'Giga::Core::Model::Series', ; my $core_db = Giga::DB->new->core; return $core_db->count( 'series_comment', '*', +{ series_id => $series->id, is_public => 1, }, ); }
9. 42-.BLFS
   ͷ࣮૷ my $w = $self->new_condition; my @w = ref $where eq 'ARRAY' ? @$where : %$where; while (my ($col, $val) = splice @w, 0, 2) { $w->add($col => $val); }
10. ͭ·Γ͜͏͢Δͱղܾ return $core_db->count( 'series_comment', '*', - +{ + [ series_id => $series->id, is_public => 1, - }, + ], );
11. 'BU
    $PNNB
    šŘŠŖʂ return $core_db->count( 'series_comment', '*', - +{ + [ series_id => $series->id, is_public => 1, - }, + ], );
12. શ෦΍Δͷμϧ͍ͳ͊
13. QURVFSZEJHFTU
    Ͱ͸্खʹ ॲཧ͞ΕͯͨΓ͢Δͷ͔ͳʁ
14. 1FSM
    ͡ΌΜ #!/usr/bin/env perl # This program is part of Percona Toolkit: http://www.percona.com/soft # See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for l # notices and disclaimers. use strict; use warnings FATAL => 'all'; # This tool is "fat-packed": most of its dependent modules are embedde
15. ߦ $ wc pt-query-digest 16920 64009 527581 pt-query-digest
16. ߦ਺ͷଟ͍ཧ༝͸෼͔ͬͨ # This tool is "fat-packed": most of its dependent modules are embedded # in this file. Setting %INC to this file for each module makes Perl aware # of this so it will not try to load the module from @INC. See the tool's # documentation for a full list of dependencies. wQBDLBHF
    QU@RVFSZ@EJHFTU
    ͸
    
    ߦ໨ ͔Βͷ
    
    ߦɻ͜ΕͳΒಡΊΔ
17. pOHFSQSJOU
    ͸
    2VFSZ3FXSJUFS
    ʹ ࣮૷͞Ε͍ͯΔ $query =~ s/\\["']//g; # quoted strings $query =~ s/".*?"/?/sg; # quoted strings $query =~ s/'.*?'/?/sg; # quoted strings $query =~ s/\bfalse\b|\btrue\b/?/isg; # boolean values ... $query =~ s/\A\s+//; # Chop off leading whitespace chomp $query; # Kill trailing whitespace $query =~ tr[ \n\t\r\f][ ]s; # Collapse whitespace $query = lc $query; $query =~ s/\bnull\b/?/g; # Get rid of NULLs $query =~ s{ # Collapse IN and VALUES lists \b(in|values?)(?:[\s,]*\([\s?,]*\))+ } {$1(?+)}gx;
18. ࣮ࡍʹ
    QURVFSZEJHFTU
    Ͱ΋ ॏෳͯ͠ݕग़͞ΕΔ͜ͱ͕
 ෼͔ͬͨ
19. ࣮຿Ͱ͸
    42-.BLFS
    Λ্ॻ͖ sub select_query { my ($self, $table, $fields, $where, $opt) = @_; if (ref($where) eq 'HASH') { $where = [map { ($_, $where->{$_}) } (sort keys %$where)]; } $self->SUPER::select_query($table, $fields, $where, $opt); }
20. Φν wզʑ͸
    %#*Y)BOEMFS
    Ͱ
    RVFSZ
    ΛݺΜͩߦΛ
    42-
    ʹ ؚΊ͍ͯΔͷͰɺίϝϯτ෦෼ΛऔΓग़ͤ͹े෼ͩͬͨ /* lib/Giga/Core/Repository/SeriesComment.pm at line 200 */ SELECT COUNT(*) FROM `series_comment` WHERE (`is_public` = '1') AND (`series_id` = '10834108156628842496')\G
21. 42-
    ΛோΊΔͱ͖ͷྑ͍෢ثΛ खʹೖΕͨ QFSDPOBUPPMLJUMJC
    ҎԼʹ
 ৭ʑ͋Δɻ
    &YQMBJO"OBMZ[FS
    ΍
 5DQ%VNQ1BSTFS
    ౳ศརͦ͏ʂ