菜鸟求统计次数

miemie_123

一组数据，例如：U  U
B  B
U  U
X  U
X  U
B  U
B  U
X  U
B  U
B  B
.......

想统计从U  U开始到B  U（中间是X  U）出现的次数（1次），请问该怎么写，多谢！

shijiang1130

1. sub compute {
   
2.         my $str = shift;
   
3.         @count=$str =~ /(U  U
   
4. X  U
   
5. X  U
   
6. B  U)/sg;
   
7.        
   
8. }
   
9. 
   
10. my $a = '
    
11. B  B
    
12. U  U
    
13. M
    
14. X  U
    
15. X  U
    
16. B  U
    
17. B  U
    
18. X  U
    
19. X
    
20. B  U
    
21. B  B
    
22. B  B
    
23. U  U
    
24. X  U
    
25. X  U
    
26. B  U
    
27. B  U
    
28. X  U
    
29. B  U
    
30. B  B
    
31. B  B
    
32. U  U
    
33. =
    
34. X  U
    
35. X  U
    
36. B  U
    
37. B  U
    
38. X  U
    
39. B  U
    
40. B  B
    
41. ';
    
42. 
    
43. my $b='B  B
    
44. U  U
    
45. X  U
    
46. X  U
    
47. B  U
    
48. B  U
    
49. X  U
    
50. B  U
    
51. B  B';
    
52. 
    
53. my $c='
    
54. U  U
    
55. X  U
    
56. X  U
    
57. B  U
    
58. ';
    
59. 
    
60. use Test::More tests => 3;
    
61. ok( compute($a) eq 1,"one");
    
62. ok( compute($b) eq 1,"two");
    
63. ok( compute($c) eq 1,"three");
    
64. 
    

复制代码

shijiang1130

sunzhiguolu

你预期的结果能否贴出来看下?