将新单词随机插入短句间的其中一个空格位置？

iocg

一个文本每行含有1~5个单词，每个单词以空格隔开

1. uu  aaa  io  pp  tr
   
2. emay  sad   food   hh
   
3. ss   vv    bbb   ff    dd
   
4. good  aaa   dd
   
5. ......

复制代码

我想查找不含有aaa、bbb的行，将ccc、ddd、eee的其中一个单词（随机或循环），随机插入到该行的其中一个空格或行首行尾的位置？
例如第二行不含aaa或者bbb：

1.   emay  sad   food  hh      
   
2. ▲     ▲     ▲      ▲   ▲
   
3. 
   
4. （随机在▲位置插入ccc  ddd  或eee其一）
   
5. 
   

复制代码

有办法做到吗（没替换的文本保持不变）？  如果我限定只对行长度20以下进行处理呢？

Herowinter

回复 1# iocg
写个最简单的吧，循环加行首。

1. awk 'BEGIN{words[0]="ccc";words[1]="dddd";words[2]="eee"} !/\<aaa\>|\<bbb\>/{$0=words[i++%3]" "$0}1' i
   
2. uu  aaa  io  pp  tr
   
3. ccc emay  sad   food   hh
   
4. ss   vv    bbb   ff    dd
   
5. good  aaa   dd
   
6. uu  aaa  io  pp  tr
   
7. dddd emay  sad   food   hh
   
8. ss   vv    bbb   ff    dd
   
9. good  aaa   dd
   
10. uu  aaa  io  pp  tr
    
11. eee emay  sad   food   hh
    
12. ss   vv    bbb   ff    dd
    
13. good  aaa   dd

复制代码

Herowinter

回复 1# iocg
限定行长20

1. awk 'BEGIN{words[0]="ccc";words[1]="dddd";words[2]="eee"} !/\<aaa\>|\<bbb\>/&&length($0)<20{$0=words[i++%3]" "$0}1' i

复制代码

iocg

回复 2# Herowinter


    不过我只想得到

1. uu  aaa  io  pp  tr
   
2. ccc emay  sad   food   hh
   
3. ss   vv    bbb   ff    dd
   
4. good  aaa   dd
   

复制代码

1. uu  aaa  io  pp  tr
   
2. dddd emay  sad   food   hh
   
3. ss   vv    bbb   ff    dd
   
4. good  aaa   dd
   

复制代码

1. uu  aaa  io  pp  tr
   
2. eee emay  sad   food   hh
   
3. ss   vv    bbb   ff    dd
   
4. good  aaa   dd

复制代码

其中一个。
例如只插入行首，就随机插入ccc  ddd  eee其中一个就好。

但是不一定只是插入行首，如果多个单词插入困难的话，就用ccc就好，我想随机插入到句中一个空格或者行首行尾。执行一次就好

Herowinter

回复 4# iocg
我的结果是对的呀，为了测试，我把源文件扩展了下，
把数据复制了3遍，只插入一遍呀。
   

Herowinter

回复 1# iocg
随机位置随机插入。

1. awk 'BEGIN{words[0]="ccc";words[1]="dddd";words[2]="eee";srand()} !/\<aaa\>|\<bbb\>/&&length($0)<20{k1=int(rand()*100%(NF+1));k2=int(rand()*100%3);if(k1==NF){$0=$0" "words[k2]}else{$(k1+1)=words[k2]" "$(k1+1)}}1' i
   
2. uu  aaa  io  pp  tr
   
3. emay sad ccc food
   
4. ss   vv    bbb   ff    dd
   
5. good  aaa   dd
   
6. uu  aaa  io  pp  tr
   
7. ccc emay sad food
   
8. ss   vv    bbb   ff    dd
   
9. good  aaa   dd
   
10. uu  aaa  io  pp  tr
    
11. emay ccc sad food
    
12. ss   vv    bbb   ff    dd
    
13. good  aaa   dd
    
14. uu  aaa  io  pp  tr
    
15. dddd emay sad food
    
16. ss   vv    bbb   ff    dd
    
17. good  aaa   dd
    
18. uu  aaa  io  pp  tr
    
19. emay dddd sad food
    
20. ss   vv    bbb   ff    dd
    
21. good  aaa   dd
    
22. uu  aaa  io  pp  tr
    
23. emay  sad   food eee
    
24. ss   vv    bbb   ff    dd
    
25. good  aaa   dd
    
26. 
    
27. cat i
    
28. uu  aaa  io  pp  tr
    
29. emay  sad   food  
    
30. ss   vv    bbb   ff    dd
    
31. good  aaa   dd
    
32. uu  aaa  io  pp  tr
    
33. emay  sad   food
    
34. ss   vv    bbb   ff    dd
    
35. good  aaa   dd
    
36. uu  aaa  io  pp  tr
    
37. emay  sad   food
    
38. ss   vv    bbb   ff    dd
    
39. good  aaa   dd
    
40. uu  aaa  io  pp  tr
    
41. emay  sad   food  
    
42. ss   vv    bbb   ff    dd
    
43. good  aaa   dd
    
44. uu  aaa  io  pp  tr
    
45. emay  sad   food
    
46. ss   vv    bbb   ff    dd
    
47. good  aaa   dd
    
48. uu  aaa  io  pp  tr
    
49. emay  sad   food
    
50. ss   vv    bbb   ff    dd
    
51. good  aaa   dd
    

复制代码

iocg

谢谢！请问下gawk可以直接代替awk吗？代码要作何修改？

yestreenstars

回复 7# iocg
我们写的代码一般就是gawk~{:2_172:}

   

yestreenstars

1. awk 'BEGIN{srand()}length<20&&!/\<(aaa|bbb)\>/{r1=rand();s=r1<1/3?"ccc":r1<2/3?"ddd":"eee";r2=int(rand()*NF)+1;r3=int(rand()+0.5);if(r3)$r2=$r2" "s;else $r2=s" "$r2}1'

复制代码

cao627

awk 'BEGIN{srand()}length<20&&!/\<(aaa|bbb)\>/{r1=rand();s=r1<1/3?"ccc":r1<2/3?"ddd":"eee";r2=int(rand()*NF)+1;r3=int(rand()*2)+1;if(r3)$r2=$r2" "s;else $r2=s" "$r2}1'

int(rand()+0.5)?
@yestreenstars