请教一下，用shell如何完成以下功能

lhj123123

如题，一个程序中有多个begintran和endtran，现在有冲突，需要将中间多余的begintran和endtran注掉，只保留最外层的一个begintran和endtran，如何实现这个功能？请大家赐教，多谢！

jinl

最好给个格式,我大概写一个代码如下: 用 #表示注释

1. 
   
2. awk '/begintran/ {flag++}
   
3.      {if (flag>1) {print "#"$0} else {print $0}}
   
4.      /endtran/ {flag--}' urfile  > newfile
   

复制代码

lhj123123

多谢你回帖，不过还是有点问题，我随便写了个文件来试验此程序，发现执行完后如下（/代表注释）
gsgjlskjglk
BEGINTRAN
fdgdsg
fgfgfhghgh
/BEGINTRAN
/dgf
/fhg
/  jhgfh
/    ENDTRAN
fdsghg dggfjhj jhgjkhgj
hgfdh sdgh
ENDTRAN
sgfhgh
df

lhj123123

接上条
中间的内容我不想给注释，只对BEGINTRAN和ENDTRAN加注释

jinl

那就更简单了

1. 
   
2. awk '!(/begintran/||/endtran/)
   
3.        /begintran/ {if ((++flag)>1) {print "/"$0} else {print}}
   
4.        /endtran/ {if ((flag--)>1) {print "/"$0} else {print}}' urfile  > newfile
   

复制代码

[ 本帖最后由 jinl 于 2008-5-20 18:58 编辑 ]

lhj123123

我的程序多加了几个begintran和endtran,只保留第一个begintran和最后一个endtran
中间出现的begintran和 endtran都注释掉，运行完你的程序后如下
gsgjlskjglk
BEGINTRAN
fdgdsg
fgfgfhghgh
/BEGINTRAN
dgf
fhg
/ENDTRAN
  jhgfh
    ENDTRAN
BEGINTRAN
fdsghg dggfjhj jhgjkhgj
hgfdh sdgh
ENDTRAN
sgfhgh
df

ENDTRAN
不好意思，还要麻烦你费心，谢谢

springwind426

1. 
   
2. perl -e '
   
3. $i=0;
   
4. while(<>){
   
5.         push(@text,$_);
   
6.         push(@start,$i) if /BEGINTRAN/;
   
7.         push(@end,$i) if /ENDTRAN/;
   
8.         $i++;
   
9. }
   
10. 
    
11. if(scalar @start >1 ){
    
12.         $start=$start[1];
    
13.         $end=$end[scalar @end -2];
    
14.         for($j=0;$j<scalar @text;$j++){
    
15.                 $s=($j>=$start && $j<=$end)?"/":"";
    
16.                 print $s,$text[$j];
    
17.         }
    
18. }' <数据文件
    

复制代码

lhj123123

哦。。。。感谢5楼和7楼的朋友
我调整了一下，问题已经解决了
我的那个测试文件写的有点问题，5楼朋友的程序可以实现
谢谢

lousia

能帮忙分析一下吗?

awk '!(/begintran/||/endtran/)
       /begintran/ {if ((++flag)>1) {print "/"$0} else {print}}  
       /endtran/ {if ((flag--)>1) {print "/"$0} else {print}}' urfile  > newfile

当遇到地一个begintran时, 初试flag=0,(++flag) flag=1 因为1>1 所以 执行 print,
当遇到第一个endtran时, flag=1,(flag--) flag=0, 因为1>1, 所以执行 print,这就是说 第一个endtran 也不会加行 /

按照我这样的分析,不就所有的 begintran和endtran都不会加上/ 了吗? 能帮我分析一下,我的思路在哪里错了?

[ 本帖最后由 lousia 于 2008-5-20 22:36 编辑 ]

jinl

当遇到地一个begintran时, 初试flag=0,(++flag) flag=1 因为1>1 所以 执行 print,
当遇到第一个endtran时, flag=1,(flag--) flag=0, 因为0>1, 所以执行 print,这就是说 第一个endtran 也不会加行 /

按照我这样的分析,不就所有的 begintran和endtran都不会加上/ 了吗? 能帮我分析一下,我的思路在哪里错了?

你的分析是只有一对begin/end的情况,自然不会加上/,要分析多个bengin/end嵌套的情况,再对照代码看

[ 本帖最后由 jinl 于 2008-5-20 22:20 编辑 ]