日常处理脚本临时记录 --20130517

perl -ne 'if($flag==0){ if(/alter table/i){print "$_";$flag=1}}
elsif($flag==1){
    if(/;\s*$/){print "$_";$flag=0}
    else{print "$_"}
}

' outfile.txt

awk '{
if(flag==0)
{
if($0~/ALTER TABLE/i){flag=1;print "trun flag on\n"$0}
}
else
{
 if($0~/;\s*$/){print "trun flag off";flag=0}
 else{print "flag on"}
}
}' outfile.txt

#去除file文件行中的数字

$ perl -pe 's/\|\d+\|/\|/'  file