如何复制/增加域 求助

shawk3

我需要写个shell，把下面group文件中的用户b所在组改为和用户a一样
比如：
原文件
PM:a,c,b
RD:c,a
ww:b,e
RR:b
EE:e,f

输出为
PM:a,c,b
RD:c,a,b
ww:e
RR:
EE:e,f

请高手帮忙，谢谢

shawk3

回复 18# yinyuemi


    就是这个意思，厉害，学习学习

yinyuemi

回复 17# shawk3


    这个意思么？

1. awk -v FS='[,:]' -v var1=a -v var2=b '{
   
2.         p=0
   
3.         printf $1":"
   
4.         {for(i=2;i<=NF;i++) {
   
5.                 if($i==var2){printf ""}
   
6.                 else {
   
7.                         if ($i==var1){printf i==2?$i:","$i;p=1}
   
8.                         else {printf i==2?$i:","$i}
   
9.                         }
   
10.         };printf p?","var2"\n":"\n"}
    
11. }'

复制代码

shawk3

回复 16# yinyuemi


    感谢各位高手帮忙，
探讨一下前面 2# yinyuemi 的思路， 能否把a，b赋给2个变量，然后遍历NF>1的每个域后和2个变量比较
$i=a and $i=b 不动
$i=a and $i !=b 添加b
$i !=a and $i=b 删除b
$i !=a and $i !=b 不动
这样的好处是减少了写文件的次数，感觉更严谨点
可能要用到数组，不知能否实现？

yinyuemi

回复 6# shawk3


    看来你的问题已经解决了，
借鉴jason680兄的想法，改进了下awk：

1. echo "PM:a,ac,b
   
2. b:
   
3. a:
   
4. RD:ac,a
   
5. ww:e,a,cb.b
   
6. RR:bb,b
   
7. EE:e,f" |awk -v FS='[,:]' '{
   
8.         p=0
   
9.         printf $1":"
   
10.         {for(i=2;i<=NF;i++) {
    
11.                 if($i=="b"){printf ""}
    
12.                 else {
    
13.                         if ($i=="a"){printf i==2?$i:","$i;p=1}
    
14.                         else {printf i==2?$i:","$i}
    
15.                         }
    
16.         };printf p?",b\n":"\n"}
    
17. }'
    
18. PM:a,ac,b
    
19. b:
    
20. a:
    
21. RD:ac,a,b
    
22. ww:e,a,cb.b,b
    
23. RR:bb
    
24. EE:e,f
    

复制代码

shawk3

回复 14# shawk3


    刚恶补了一下，自己解答一下，大概是这样，同时回写到原文件
$echo "M:a,ac,b
b:
a:
RD:ac,a
ww:e,a,cb.b
RR:b
EE:e,f" > group

$a="a"
$b="b"
$c="./group"
$perl -i.bak -lape  '{s/(,)'"$b"'(,|$)/$1/;s/,$//;if(m/(,)'"$a"'(,|$)/){$_.=",'"$b"'"}}'  "$c"

PM:a,ac,b
b:
a:
RD:ac,a,b
ww:e,a,cb.b,b
RR:
EE:e,f

shawk3

回复 12# jason680


    我不懂perl，怎么把a，b用变量替代呢？多谢
比如
perl -lape ..... /etc/group

jason680

回复  where27


    多谢，多谢
还有点问题
有的用户名字叫 bc.b，或者 ：前的组名包含a或b，这时\就 ...
shawk3 发表于 2011-04-19 17:26

$ echo 'PM:a,ac,b
bb:
a:
RD:ac,a
ww:e,cb.b
RR:b
EE:e,f' | perl -lape '{s/(,)b(,|$)/$1/;s/,$//;if(m/(,)a(,|$)/){$_.=",b"}}'
PM:a,ac,b
bb:
a:
RD:ac,a,b
ww:e,cb.b
RR:
EE:e,f

shawk3

回复 10# where27


    多谢，多谢
还有点问题
有的用户名字叫 bc.b，或者 ：前的组名包含a或b，这时\<b\>就又不行了，该加啥限定呢？
比如
PM:a,ac,b
bb:
a:
RD:ac,a
ww:e,cb.b
RR:b
EE:e,f