perl文本處理，大家?guī)兔�看�?/a>

南宮慕容007

在一個文件里有很多類似于上面文本格式的文本，都是按一定順序排好的。我想檢查每一段是否包含0 4700000 sil -2540.468994 !SENT_START和36100000 36600000 sil -249.693359 !SENT_START這樣的兩句話（這兩句話在每一段文本的第二句和和倒數(shù)第二句，最后一句十個句號占一行），且這兩句話都要滿足第二個數(shù)字減第一個數(shù)字大于400000，如果不滿足其中的任一條件，則將這一段文本的第一句打印出來，也就是打印"chengwenqiang_near_013_stn2.rec"這句話�？赡苡悬c難理解，我想了好久了還是沒找到解決辦法。一行一行的讀取文本好像很難解決這個問題吧。

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. ..........

復(fù)制代碼

南宮慕容007

@block = split /\r|\n/,$_;這一句是把整個文件都放到一個數(shù)組中了嗎回復(fù) 2# gaoquanlong