配对-格式调整

yinyuemi

回复 9# mpstat


    相当犀利， 效率应该也很高～

yinyuemi

回复 10# winway1988


    非常好，可以再进一步想下如何不在END部分打印结果，这样效率会更好～

mpstat

回复 11# yinyuemi

1. 
   
2. export l=10000;seq $l|awk -va=$l 'BEGIN{srand();}{v=int(rand()*100);v=(a-NR)>2*v?v:int((a-NR)/2); for(i=0;i<v;++i){getline; print NR,"aaa"};for(i=0;i<v;++i){getline;print NR,"bbb"};}' > cc

复制代码

生成你的文件,改一下10000测测效率

yinyuemi

回复 13# mpstat


    Thanks！
测试结果如下：

1. 
   
2. 
   
3. 环境：cygwin
   
4. CYGWIN_NT-5.1 version 1.7.11
   
5. 
   
6. time awk -f jiejie455.awk testfile >/dev/null
   
7. 
   
8. real    0m2.180s
   
9. user    0m2.030s
   
10. sys     0m0.124s
    
11. 
    
12. time perl -lane '{push(@a,"@F") if($F[-1] eq "aaa");print shift @a," @F" if($F[-1] eq "bbb")}' testfile >/dev/null
    
13. 
    
14. real    0m0.830s
    
15. user    0m0.718s
    
16. sys     0m0.061s
    
17. 
    
18. 参考jason680的code略作修改，如下
    
19. cat jason680_m.pl
    
20. #!/bin/perl
    
21. use strict;
    
22. my @F;
    
23. my @a;
    
24. open(f,"@ARGV[0]") or die "$!";
    
25. while(<f>){
    
26.   chomp;
    
27.   push @a, $_ if($_ eq "aaa");
    
28.   print shift @a," $_" if($_ eq "bbb");
    
29. }
    
30. close(f);
    
31. 
    
32. time perl jason680_m.pl testfile >/dev/null
    
33. 
    
34. real    0m0.245s
    
35. user    0m0.124s
    
36. sys     0m0.092s
    
37. 
    
38. 
    
39. time sed -nr -f mpstat.sed testfile >/dev/null  #sed的效率有点让人失望，不过不是code的问题，我觉得mpstat的code已经很犀利了，慢的原因应该是正则部分
    
40. 
    
41. real    0m9.227s
    
42. user    0m9.155s
    
43. sys     0m0.046s
    
44. 
    
45. time awk -f winway1988.awk testfile >/dev/null
    
46. 
    
47. real    0m0.443s
    
48. user    0m0.358s
    
49. sys     0m0.031s
    
50. 
    
51. cat ss.awk # 额的awk code，比perl还是慢，求效率更高的～
    
52. /aaa/{if(t){i=t=j=0}a[i++]=$0}
    
53. /bbb/{print $0,a[j++];t=1}
    
54. 
    
55. time awk -f ss.awk testfile >/dev/null
    
56. 
    
57. real    0m0.330s
    
58. user    0m0.249s

复制代码

winway1988

回复 12# yinyuemi


    试试这个

1. awk '/aaa/{a[++ntail]=$0}/bbb/{print a[++nhead],$0}'

复制代码

yinyuemi

回复 15# winway1988


    效率提高了～

1. time awk -f winway1988_2.awk testfile >/dev/null
   
2. 
   
3. real    0m0.341s
   
4. user    0m0.265s
   
5. sys     0m0.031s

复制代码

ziyunfei

awk '/aaa/{hash[++i]=$0}/bbb/{print hash[++j]"\t"$0}' file

ziyunfei

重复了

dahaoshanhe

回复 16# yinyuemi


这个帖子真霸道

ziyunfei

不管需要不需要 awk总会把$0切割成字段.这会耗费不少时间.就像perl用了-a.