perl 分析binlog 生成update sql

if [ $# -ne 2 ]then   echo "请输入update xx"elseperl ./get_num.pl $1 $2 if [ $? -eq 0 ]  then   sh ./sed.sh fifiopen (A,"<","a.txt");open (B,">","b.txt");$a=$ARGV[0];$b=$ARGV[1]; while (<A>) {                $num++;                if (( $_ =~/$a\s+$b/i ) or ($_ =~/$a\s+`zjzc`.`$b/i) )  { $c = $num;print B ("$c\n"); };               }   cat b.txt | while read A donum1=`expr $A - 3`num2=`expr $A + 3`sed -n ''$num1','$num2'p' a.txtdone