![MySQL slow_log
1 #!/usr/bin/env perl$ 27 $ tail
2$ 28 unless ( defined $slowlog->{sql} ) {$
3 use strict;$ 29 print $mp->pack($slowlog);$
4 use warnings;$ 30 next;$
5 use Data::Dumper;$ 31 }$
EXPLAIN
6 use DBIx::Handler;$
7 use JSON::XS;$
32 $
33 my $select_statement;$
8 use Data::MessagePack;$ 34 if ( $slowlog->{sql} =~ /(select[^;]+)/i ) {$
9$ 35 $select_statement = $1;$
10 $| = 1;$ 36 }$
11 $ 37 $
12 my $mp = Data::MessagePack->new();$ 38 if ( $slowlog->{sql} =~ /^use ([^;]+)/i ) {$
13 $ 39 $db = '`' . $1 . '`';$
14 my $db_user = "root";$ 40 }$
15 my $db_passwd = "";$ 41 $
16 my $db_opt = { RaiseError => 0, PrintError => 1 };$ 42 if ( defined $db && defined $select_statement ) {$
17 my $handler = DBIx::Handler->new( "DBI:mysql: 43 $handler->dbh->do("use $db");$
database=information_schema:1 27.0.0.1", $db_user, 44 my $explains = eval { $handler->dbh-
$db_passwd, $db_opt );$ >selectall_arrayref( "EXPLAIN $selec t_statement", +{
18 $ Slice => {} } ); };$
19 my $db;$ 45 if ( ref $explains eq 'ARRAY' ) {$
20 my $long_query_time = $handler->dbh- 46 $slowlog->{explain} = $explains;$
>selectrow_array($ 47 $slowlog->{database} = $db;$
21 "SELECT VARIABLE_VALUE FROM 48 }$
GLOBAL_VARIABLES WHERE VARIABLE_NAME = 49 }$
'LONG_Q UERY_TIME'");$ 50 $
22 $handler->dbh->do("SELECT SLEEP 51 print $mp->pack($slowlog);$
($long_query_time)");$ 52 }$
23 $
24 while ( my $json = <STDIN> ) {$
25 my $slowlog = eval { decode_json($json); };$
26 next if ($@);$ store MongoDB](https://image.slidesharecdn.com/chiba-pm1ltstudio3104-121020031129-phpapp02/85/Chiba-pm-1-lt-studio3104-17-320.jpg)
Chiba.pm #1 lt @studio3104
- 1. Lightning Talk at Chiba.pm #1 YAPC::Asia 2012 尅り卦り @studio3104
- 2. @studio3104 (Satoshi SUZUKI) -- Perls磯定くらい -- WEBI順2定朕 -- 曇、弟、連徨います -- ソシャゲ、巷塀サイト、パチ(スロ)ンコ -- こんなのやってます ★★★★★★★ -- Perlと伉嶄するらしいです 徭失B初
- 3. 咫鶺弔世辰壬墟教艶壊岳3
- 5. 及屈了 仝Openess is our driver for excellence々
- 8. 咫鶺弔世辰身卜鏥艶壊岳3
- 9. 及美了
- 10. 及屈了
- 11. 及匯了
- 14. Lightning Talk at Chiba.pm #1 YAPC::Asia 2012 まだKわってね`よ。。 @studio3104
- 15. @studio3104 (Satoshi SUZUKI) -- Perls磯定くらい -- WEBI順2定朕 -- 曇、弟、連徨います -- ソシャゲ、巷塀サイト、パチ(スロ)ンコ -- こんなのやってます ★★★★★★★ -- Perlと伉嶄するらしいです 徭失B初
- 16. REVENGE DEMO
- 17. MySQL slow_log 1 #!/usr/bin/env perl$ 27 $ tail 2$ 28 unless ( defined $slowlog->{sql} ) {$ 3 use strict;$ 29 print $mp->pack($slowlog);$ 4 use warnings;$ 30 next;$ 5 use Data::Dumper;$ 31 }$ EXPLAIN 6 use DBIx::Handler;$ 7 use JSON::XS;$ 32 $ 33 my $select_statement;$ 8 use Data::MessagePack;$ 34 if ( $slowlog->{sql} =~ /(select[^;]+)/i ) {$ 9$ 35 $select_statement = $1;$ 10 $| = 1;$ 36 }$ 11 $ 37 $ 12 my $mp = Data::MessagePack->new();$ 38 if ( $slowlog->{sql} =~ /^use ([^;]+)/i ) {$ 13 $ 39 $db = '`' . $1 . '`';$ 14 my $db_user = "root";$ 40 }$ 15 my $db_passwd = "";$ 41 $ 16 my $db_opt = { RaiseError => 0, PrintError => 1 };$ 42 if ( defined $db && defined $select_statement ) {$ 17 my $handler = DBIx::Handler->new( "DBI:mysql: 43 $handler->dbh->do("use $db");$ database=information_schema:1 27.0.0.1", $db_user, 44 my $explains = eval { $handler->dbh- $db_passwd, $db_opt );$ >selectall_arrayref( "EXPLAIN $selec t_statement", +{ 18 $ Slice => {} } ); };$ 19 my $db;$ 45 if ( ref $explains eq 'ARRAY' ) {$ 20 my $long_query_time = $handler->dbh- 46 $slowlog->{explain} = $explains;$ >selectrow_array($ 47 $slowlog->{database} = $db;$ 21 "SELECT VARIABLE_VALUE FROM 48 }$ GLOBAL_VARIABLES WHERE VARIABLE_NAME = 49 }$ 'LONG_Q UERY_TIME'");$ 50 $ 22 $handler->dbh->do("SELECT SLEEP 51 print $mp->pack($slowlog);$ ($long_query_time)");$ 52 }$ 23 $ 24 while ( my $json = <STDIN> ) {$ 25 my $slowlog = eval { decode_json($json); };$ 26 next if ($@);$ store MongoDB
- 19. でもGPL2 よくわかんない
- 20. ス`パ`傚札織ぅ
- 21. Lightning Talk at Chiba.pm #1 YAPC::Asia 2012 尅り卦り ご賠ありがとうございました @studio3104