计数问题求助

kwunkau

有一个文本a：
A        1
A        2
A        3
A        4
A        5
A        6
A        7
A        8
A        9
A        10
B        11
B        12
B        13
B        14
B        15
B        16
B        17
C        18
C        19
C        20
C        21
C        22
C        23
C        24
C        25
C        26
C        27
D        28
D        29
D        30
D        31
D        32
D        33
D        34
D        35


现要取每个字母前5行的数据，输出如下：
A        1
A        2
A        3
A        4
A        5
B        11
B        12
B        13
B        14
B        15
C        18
C        19
C        20
C        21
C        22
C        23
D        28
D        29
D        30
D        31
D        32


awk应该怎么写才好了，求助，在这谢谢大家了

haooooaaa

1. awk 'a[$1]++<5'

复制代码

zy86416779

1. [root@CentOS_6 tmp]# cat 1.txt
   
2. A        1
   
3. A        2
   
4. A        3
   
5. A        4
   
6. A        5
   
7. A        6
   
8. A        7
   
9. A        8
   
10. A        9
    
11. A        10
    
12. B        11
    
13. B        12
    
14. B        13
    
15. C        18
    
16. C        19
    
17. C        20
    
18. C        21
    
19. C        22
    
20. C        23
    
21. C        24
    
22. C        25
    
23. C        26
    
24. C        27
    
25. D        28
    
26. D        29
    
27. D        30
    
28. D        31
    
29. D        32
    
30. D        33
    
31. D        34
    
32. D        35
    
33. [root@CentOS_6 tmp]# cat extract.awk
    
34. BEGIN{f=1;F=2}
    
35. {
    
36.   if(f==1){
    
37.     i=$1
    
38.     print $0
    
39.     f=0
    
40.     next
    
41.   }
    
42.   if(F<=5)
    
43.   {
    
44.     if(i==$1){
    
45.       print $0
    
46.       F++
    
47.       next
    
48.     }
    
49.   }
    
50.   if(i!=$1){
    
51.     print $0
    
52.     F=2
    
53.     i=$1
    
54.   }
    
55. }
    
56. [root@CentOS_6 tmp]# awk -f extract.awk 1.txt
    
57. A        1
    
58. A        2
    
59. A        3
    
60. A        4
    
61. A        5
    
62. B        11
    
63. B        12
    
64. B        13
    
65. C        18
    
66. C        19
    
67. C        20
    
68. C        21
    
69. C        22
    
70. D        28
    
71. D        29
    
72. D        30
    
73. D        31
    
74. D        32

复制代码

sunzhiguolu

1. 
   
2. perl -0pe 's/^(?:([a-z]).*\n){1,5}\K(?:\1.*\n)*//gim' f
   

复制代码

kwunkau

回复 2# haooooaaa

简洁方便，厉害

kwunkau

回复 3# zy86416779

提供的思路很好，谢谢分享

kwunkau

回复 4# sunzhiguolu

perl 好强大！

moperyblue

1. sed -r '/\n/!{:a;s/((\n[^\n]*){4}).*/\1/;N;/(\S+\b).*\n\1[^\n]*$/ba};P;D' a

复制代码