perl文本处理，大家帮忙看看

南宫慕容007

在一个文件里有很多类似于上面文本格式的文本，都是按一定顺序排好的。我想检查每一段是否包含0 4700000 sil -2540.468994 !SENT_START和36100000 36600000 sil -249.693359 !SENT_START这样的两句话（这两句话在每一段文本的第二句和和倒数第二句，最后一句十个句号占一行），且这两句话都要满足第二个数字减第一个数字大于400000，如果不满足其中的任一条件，则将这一段文本的第一句打印出来，也就是打印"chengwenqiang_near_013_stn2.rec"这句话。可能有点难理解，我想了好久了还是没找到解决办法。一行一行的读取文本好像很难解决这个问题吧。

gaoquanlong

1. #!/usr/bin/perl
   
2. #use warning;
   
3. 
   
4. $/ = '..........';
   
5. my (@block, $a, $b, $c,$d,$e,$flag);
   
6. while (<DATA>) {
   
7.   @block = split /\r|\n/,$_;
   
8.   
   
9.    
   
10.   $a = ($block[0] =~ /^\s*$/)?$block[1]:$block[0];
    
11.   $b = ($block[0] =~ /^\s*$/)?$block[2]:$block[1];
    
12.   $c = $block[$#block - 1];
    
13.   
    
14.   if ( not ( ((split /\s+/,$b)[1] - (split /\s+/,$b)[0] > 400000) && ((split /\s+/,$c)[1] - (split /\s+/,$c)[0] > 400000) ) ) {
    
15.     print $a,"\n";
    
16.   }
    
17. }
    
18. 
    
19. 
    
20. __DATA__
    
21. "abc.txt"
    
22. 0 4700000 sil -2540.468994 !SENT_START
    
23. dfdfdfdf
    
24. dfdfd
    
25. ffff
    
26. ffdfdf
    
27. dddddd
    
28. 36100000 36600000 sil -249.693359 !SENT_START
    
29. ..........
    
30. "bcd.txt"
    
31. 0 470000 sil -2540.468994 !SENT_START
    
32. dfdfdfdf
    
33. dfdfd
    
34. ffff
    
35. ffdfdf
    
36. dddddd
    
37. 36100000 36600000 sil -249.693359 !SENT_START
    
38. ..........
    
39. "cde.txt"
    
40. 0 4700000 sil -2540.468994 !SENT_START
    
41. dfdfdfdf
    
42. dfdfd
    
43. ffff
    
44. ffdfdf
    
45. dddddd
    
46. 36100000 3660 sil -249.693359 !SENT_START
    
47. ..........

复制代码

南宫慕容007

@block = split /\r|\n/,$_;这一句是把整个文件都放到一个数组中了吗回复 2# gaoquanlong