亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: perl文本處理，大家?guī)兔纯?[打印本頁]
作者: 南宮慕容007    時間: 2016-05-03 10:55
標(biāo)題: perl文本處理，大家?guī)兔纯?br /> 本帖最后由 南宮慕容007 于 2016-05-03 15:42 編輯


在一個文件里有很多類似于上面文本格式的文本，都是按一定順序排好的。我想檢查每一段是否包含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    時間: 2016-05-03 17:28
  1. #!/usr/bin/perl
  2. #use warning;

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


  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    時間: 2016-05-03 23:30
@block = split /\r|\n/,$_;這一句是把整個文件都放到一個數(shù)組中了嗎回復(fù) 2# gaoquanlong


   



歡迎光臨 Chinaunix (http://www.72891.cn/) Powered by Discuz! X3.2