如何用perl刪除檔案內指定區域的字串？

inmolee

各位高手
如何用perl刪除檔案內指定區域的字串
例如刪除frame_start到frame_end之間的所有字串（紅字區域）

FLASH, 37, 315291, 77443, positive
FLASH, 41, 315293, 77443, negative
FLASH, 41, 315293, 56643, negative
FLASH, 42, 315293, 77443, positive
FLASH, 42, 315293, 56643, positive
LINE, 83, 315291, 59843, 315291, 74243, negative
FLASH, 84, 315291, 63683, positive
FLASH, 84, 315291, 65123, positive
FLASH, 84, 315291, 66563, positive
FLASH, 84, 315291, 68003, positive
FLASH, 84, 315291, 69443, positive
FLASH, 86, 111810, 362231, negative
step_end
sr_start panel
  16000,17600,0,NM,DELTA= 0:0, REPEAT = 1:1
sr_end
frame_start
FLASH, 88, 19994, 13594, negative
FLASH, 88, 331910, 387882, negative
FLASH, 88, 331910, 13594, negative
FLASH, 90, 159952, 13594, positive
FLASH, 90, 159952, 389482, positive
LINE, 63, 1600, 400000, 339200, 400000, negative
LINE, 63, 1600, 400000, 9600, 400000, positive
LINE, 63, 17600, 400000, 25600, 400000, positive
LINE, 63, 33600, 400000, 41600, 400000, positive
LINE, 63, 49600, 400000, 57600, 400000, positive
LINE, 63, 65600, 400000, 73600, 400000, positive
LINE, 63, 81600, 400000, 89600, 400000, positive
LINE, 63, 99200, 400000, 107200, 400000, positive
LINE, 63, 115200, 400000, 123200, 400000, positive
frame_end
FLASH, 81, 318110, 382564, positive
FLASH, 82, 316220, 383225, positive
LINE, 80, 320000, 22872, 305071, 22872, positive
LINE, 80, 305071, 22872, 305071, 18400, positive
LINE, 80, 305071, 18400, 320000, 18400, positive
LINE, 80, 320000, 18400, 320000, 22872, positive
CONTOUR, negative, HOLES_NUM = 0
    FROM, 320000, 22872
    LINETO, 320000, 18400
    LINETO, 305071, 18400
    LINETO, 305071, 22872
    LINETO, 320000, 22872
CONTOUR_END

flw

这里可以用 range 操作符 ..

__lxmxn__

1. use strict;
   
2. use warnings;
   
3. 
   
4. my($ok)=(1);
   
5. open FD,"<data.txt";
   
6. while(<FD>){
   
7.     if(/^frame_start$/){
   
8.         $ok=0;
   
9.     }
   
10.     if($ok){print;}
    
11.     if(/^frame_end$/){
    
12.         $ok=1;
    
13.     }
    
14. }
    

复制代码

放驴娃

1.     if(/^frame_start$/){
   
2.         $ok=0;
   
3.     }
   
4.     if($ok){print;}
   
5.     if(/^frame_end$/){
   
6.         $ok=1;
   
7.     }

复制代码

等效于：

1. if( not /^frame_start$/../^frame_end$/ ){
   
2.     print;
   
3. }

复制代码

__lxmxn__

学习了~

但是我还不明白，这里的/^frame_start$/../^frame_end$/表示的是文本句柄的一个范围，还是perl根据匹配的布尔值来判断的啊？

放驴娃

原帖由 __lxmxn__ 于 2007-12-11 15:34 发表
学习了~

但是我还不明白，这里的/^frame_start$/../^frame_end$/表示的是文本句柄的一个范围，还是perl根据匹配的布尔值来判断的啊？

perldoc perlop
查 range 操作符的用法……

__lxmxn__

多谢兄的指引，已经找到啦~

inmolee

謝謝各位高手的幫忙
終於解決這個問題了！
Thanks lot !