zoukankan      html  css  js  c++  java
  • perl 分析mysql binlog

    binlog 日志格式:
    
    use `zjzc`/*!*/;
    SET TIMESTAMP=1476326343/*!*/;
    UPDATE `ProductAccess` pa SET pa.accessType =1 WHERE  pa.productSn IN(
    
    SET TIMESTAMP=1476326807/*!*/;
    update ClientActionTrack set
    
    SET TIMESTAMP=1476327571/*!*/;
    UPDATE `zjzc`.`scan` SET `sn`='200' WHERE `sn`='100'
    
    
    [root@zjzc01 binlog]# cat binlog.pl 
    if ( $#ARGV < 2 ){  
            print "please input file  update|insert table_namee!
    ";  
            exit(-1);  
    
                   }; 
    my $a=$ARGV[0];
    my $b=$ARGV[1];
    my $c=$ARGV[2];
    local $/='/*!*/;';
    open (A,"<","$a");
         while (<A>){
          if  (( $_ =~/$bs+$c/i ) or ($_ =~/$bs+`$c`/i) ){
          print $_;
            };
          };
     
    [root@zjzc01 binlog]# perl binlog.pl aa UPDATE scan
    [root@zjzc01 binlog]# 
    [root@zjzc01 binlog]# 
    
    
    /*!*/;[root@zjzc01 binlog]# cat binlog.pl 
    if ( $#ARGV < 2 ){  
            print "please input file  update|insert table_namee!
    ";  
            exit(-1);  
    
                   }; 
    my $a=$ARGV[0];
    my $b=$ARGV[1];
    my $c=$ARGV[2];
    local $/='/*!*/;';
    open (A,"<","$a");
         while (<A>){
          if  (( $_ =~/$bs+$c/i ) or ($_ =~/$bs+`$c`/i) or ($_ =~/$bs+`zjzc`.`$c`/i) ){
          print $_;
            };
          };
     
    [root@zjzc01 binlog]# perl binlog.pl aa UPDATE scan
    
    UPDATE `zjzc`.`scan` SET `sn`='200' WHERE `sn`='100'
    
    
    [root@zjzc01 binlog]# perl binlog.pl aa UPDATE scan
    
    UPDATE `zjzc`.`scan` SET `sn`='200' WHERE `sn`='100'
    /*!*/;
    UPDATE `scan` SET `sn`='300' WHERE `sn`='200'
    
    
    
    [root@zjzc01 binlog]# perl binlog.pl aa UPDATE scan
    
    UPDATE `zjzc`.`scan` SET `sn`='200' WHERE `sn`='100'
    /*!*/;
    UPDATE `scan` SET `sn`='300' WHERE `sn`='200'
    /*!*/;
    UPDATE scan SET `sn`='400' WHERE `sn`='300'
    
    /*!*/;[root@zjzc01 binlog]# cat binlog.pl 
    if ( $#ARGV < 2 ){  
            print "please input file  update|insert table_namee!
    ";  
            exit(-1);  
    
                   }; 
    my $a=$ARGV[0];
    my $b=$ARGV[1];
    my $c=$ARGV[2];
    local $/='/*!*/;';
    open (A,"<","$a");
         while (<A>){
          if  (( $_ =~/$bs+$c/i ) or ($_ =~/$bs+`$c`/i) or ($_ =~/$bs+`zjzc`.`$c`/i) or ($_ =~/$bs+zjzc.$c/i )){
          print $_;
            };
          };
     
    [root@zjzc01 binlog]# perl binlog.pl aa UPDATE scan
    
    UPDATE `zjzc`.`scan` SET `sn`='200' WHERE `sn`='100'
    /*!*/;
    UPDATE `scan` SET `sn`='300' WHERE `sn`='200'
    /*!*/;
    UPDATE scan SET `sn`='400' WHERE `sn`='300'
    /*!*/;
    UPDATE zjzc.scan SET `sn`='500' WHERE `sn`='400'
    
    /*!*/;[root@zjzc01 binlog]# cat binlog.pl 
    if ( $#ARGV < 2 ){  
            print "please input file  update|insert table_namee!
    ";  
            exit(-1);  
    
                   }; 
    my $a=$ARGV[0];
    my $b=$ARGV[1];
    my $c=$ARGV[2];
    local $/='/*!*/;';
    open (A,"<","$a");
         while (<A>){
          if  (( $_ =~/$bs+$c/i ) or ($_ =~/$bs+`$c`/i) or ($_ =~/$bs+`zjzc`.`$c`/i) or ($_ =~/$bs+zjzc.$c/i )){
          print $_;
            };
          };

  • 相关阅读:
    HDU 4778 内存搜索&amp;如压力
    cocos2dx-2.x CCFileUtils文件管理分析(2)
    开源 自由 java CMS
    1.网络工具:ifconfig,ping,netstate,Redhat命令和图形化设置ip,finger,nslookup
    什么是PV,UV。
    Python爬虫框架Scrapy获得定向打击批量招聘信息
    采用ToolRunner执行Hadoop基本面分析程序
    编辑时snapping的添加
    利用ArcGIS Engine、VS .NET和Windows控件开发GIS应用
    由图层判断数据源类型
  • 原文地址:https://www.cnblogs.com/zhaoyangjian724/p/6199125.html
Copyright © 2011-2022 走看看