数据库存储过程脚本移植: oracle --> sybase，想用脚本完成，几个问题请教大虾

C307307

question1:
范例：
-------------------------------------------
      gg
          abc:=cc
      abc:=cc
--------------------------------------------
如何变成如下：
------------------------------------------
      gg
          select @abc:=cc
      select @abc:=cc
------------------------------------------
要求在有含有":="的表达式前 加上 "select" 和 "@"
注意俄，不是简单的加上 "select" 和 "@"，要保证修改后的代码和原来的
对齐格式是一样的。
比如：
______abc:=cc
要改成
______select @abc:=cc
原来前面又6个空格，修改后也是六个空格
不要修改成如下这样
select______@abc:=cc

question2:
范例：
---------------------------------------------------------------------------------------------
select aaa into vaaa from  ccc where aaa='ddd';
select aaa,bbb into vaaa,vbbb from ccc where ddd=eee;
---------------------------------------------------------------------------------------------
如何变成如下：
---------------------------------------------------------------------------------------------
select @vaaa=aaa from  ccc where aaa='ddd';
select @vaaa=aaa,@vbbb=bbb from ccc where ddd=eee;
---------------------------------------------------------------------------------------------

这个如何完成，希望大虾考虑下有的地方有空格，或又多个空格的问题。
另外如果一次有多个变量要赋值，不止上面写的一个或则两个，该如何来弄？
例如：
select a,b,c,e,f   into  va,vb,vc,vd,ve where 1=1;
改成：
select  @va=a,@vb=b,@vc=c,@vd=d,@ve=e  where 1=1;

liion631818

question1

1. 
   
2. sed -r 's/([ |\t]*)([^:=]+:=.*)/\1select @\2/'
   

复制代码

C307307

回复 2# liion631818


    谢楼上，测试了下，达到了目的。

liion631818

1. 
   
2. awk '{split($2, a, ",");split($4, b, ",");$2=$4="";for(i in a){line= line != "" ? line", @"b[i]"="a[i] : "@"b[i]"="a[i]}$3=line;NF+=1; line=""}1' file
   

复制代码

yinyuemi

回复 1# C307307

1. 1.awk '/:=/{sub(/ +/,"&select @")}1'
   
2. 
   
3. 2.
   
4. echo 'select a,b,c,e,f   into  va,vb,vc,vd,ve where 1=1;' |awk '{for(i=1;i<=NF;i++){if($i=="into"){for(j=1;j<=split($(i+1),b,",");j++){t=j==1?"@"b[j]"="b[j]:t",@"b[j]"="b[j]};$(i-1)=gensub("=v","=","g",t);$i=$(i+1)=""}}}1'
   
5. select @va=a,@vb=b,@vc=c,@vd=d,@ve=e   where 1=1;
   
6. 
   

复制代码

C307307

回复 4# liion631818


    谢谢解答，
    代码看得不是太懂，不过
   select a,b,c,e,f   into  va,vb,vc,vd,ve   where 1=1
   将上面以空格来分割是看懂了的，假如是下面这种情况就不能达到目的了。
select a ,   b ,   c ,   e ,   f   into  va ,   vb ,   vc ,   vd ,   ve   where 1=1

C307307

回复 5# yinyuemi


    谢谢解答，question1是OK的，
   question2：
   应该和 4楼一样，是以空格来分割的，但如果是下面这种情况就达不到目的了。
   select a ,   b ,   c ,   e ,   f   into  va ,   vb ,   vc ,   vd ,   ve   where 1=1

yinyuemi

回复 7# C307307


    try：

1. echo 'select a ,   b ,   c ,   e ,   f   into  va ,   vb ,   vc ,   vd ,   ve   where 1=1' |awk '{gsub(/ +, +/,",");$0=$0}{for(i=1;i<=NF;i++){if($i=="into"){for(j=1;j<=split($(i+1),b,",");j++){t=j==1?"@"b[j]"="b[j]:t",@"b[j]"="b[j]};$(i-1)=gensub("=v","=","g",t);$i=$(i+1)=""}}}1'
   
2. select @va=a,@vb=b,@vc=c,@vd=d,@ve=e   where 1=1

复制代码

C307307

回复 8# yinyuemi


    OK,感谢了！这回的代码是真的看不懂了。
    不过还有点小问题，就是对齐问题。
原来的代码：
_____________select 。。。。。。。。。
修改后的代码：
select 。。。。。。。。。
修改后的代码直接顶格了，原来前面的空格没了。

能否把这个问题解决下

yinyuemi

回复 9# C307307


    try：

1. echo '        select a ,   b ,   c ,   e ,   f   into  va ,   vb ,   vc ,   vd ,   ve   where 1=1' |awk '{gsub(/ +, +/,",");$0=$0;y=gensub(/^( +)select.*/,"\\1",1,$0);}{for(i=1;i<=NF;i++){if($i=="into"){for(j=1;j<=split($(i+1),b,",");j++){t=j==1?"@"b[j]"="b[j]:t",@"b[j]"="b[j]};$(i-1)=gensub("=v","=","g",t);$i=$(i+1)=""}};$1=y$1}1'
   
2.         select @va=a,@vb=b,@vc=c,@vd=d,@ve=e   where 1=1
   

复制代码

注，下次提问题的时候，尽量一次把需求都说出来，不然小心斑竹哥哥扣分分