请教SHELL 乱序的问题

walkman660

把文本按行乱序的办法已经知道了
awk 'BEGIN{srand()}{b[rand()NR]=$0}END{for(x in b)print b[x]}' test.txt

但是现在的具体情况是这样：
#############例子开始#############
<aaa>
abcdefg
abcdefg
abcdefg

abcdefg
<aaaed>
<aaa>
abcdefg
<aaaed>
<aaa>
abcdefg
abcdefg
<aaaed>
<aaa>
abcdefg
abcdefg
hijklmn
<aaaed>
#############例子结束#############
从<aaa>开始到<aaaed>结束作为一个块，例子中一共有4个块，现在想把这4个块进行乱序排列，但是要求<aaa>到<aaaed>之间的内容要保持和原本的一致。
求高手给个好的解决办法 )

ly5066113

回复 1# walkman660


try:

1. awk 'BEGIN{srand()}/<aaa>/{n=rand()++i}{a[n]=a[n]?a[n]"\n"$0:$0}END{for(i in a)print a[i]}' file

复制代码

runintostar

1. awk 'BEGIN{srand()}/<aaa>/{i=0;r=rand()NR;b[r][i++]=$0}!/<aaa>/{b[r][i++]=$0}END{for(x in b){for(i=0;i<length(b[x]);i++){print b[x][i]}}}'

复制代码

回复 1# walkman660

好吧。我表示不知道问题出在哪,二维数组不支持？看来你是unix,Sorry

1. $ awk 'BEGIN{srand()}/<aaa>/{i=0;r=rand()NR;b[r][i++]=$0}!/<aaa>/{b[r][i++]=$0}END{for(x in b){for(i=0;i<length(b[x]);i++){print b[x][i]}}}' tt
   
2. <aaa>
   
3. abcdefg
   
4. abcdefg
   
5. hijklmn
   
6. <aaaed>
   
7. <aaa>
   
8. abcdefg
   
9. abcdefg
   
10. abcdefg
    
11. 
    
12. abcdefg
    
13. <aaaed>
    
14. <aaa>
    
15. abcdefg
    
16. abcdefg
    
17. <aaaed>
    
18. <aaa>
    
19. abcdefg
    
20. <aaaed>
    

复制代码

yestreenstars

按照你提供的方法写的：

1. awk 'BEGIN{srand()}/<aaa>/{n++;t=rand()n}{a[t]=a[t]?a[t]"\n"$0:$0}END{for(i in a)print a[i]}'

复制代码

walkman660

回复 2# ly5066113

试了十几次没问题，妥妥的！谢谢！

还得好好研究下awk
   

walkman660

回复 3# runintostar

awk: BEGIN{srand()}/<aaa>/{i=0;r=rand()NR;b[r][i++]=$0}!/<aaa>/{b[r][i++]=$0}END{for(x in b){for(i=0;i<length(b[x]);i++){print b[x]}}}
awk:                                          ^ syntax error
awk: BEGIN{srand()}/<aaa>/{i=0;r=rand()NR;b[r][i++]=$0}!/<aaa>/{b[r][i++]=$0}END{for(x in b){for(i=0;i<length(b[x]);i++){print b[x]}}}
awk:                                                                ^ syntax error
awk: BEGIN{srand()}/<aaa>/{i=0;r=rand()NR;b[r][i++]=$0}!/<aaa>/{b[r][i++]=$0}END{for(x in b){for(i=0;i<length(b[x]);i++){print b[x]}}}
awk:                                                                                                                               ^ syntax error

这个好像有点问题，不过仍然感谢！
   

walkman660

回复 4# yestreenstars

和ly5066113的同样完美解决！谢谢 ！
   

elu_ligao

参照你的这个应该也行吧
awk 'BEGIN{RS="<aaa>\n";srand()}NR>=2{b[rand()NR]=$0}END{for(i in b)printf RS""b[i]}'

walkman660

回复 4# yestreenstars


我也很奇怪，可能是不支持二维数组吧
GNU Awk 3.1.7
CentOS release 6.5

walkman660

回复 8# elu_ligao


    嗯，这个也没问题，谢谢！