1 #!/usr/bin/perl 2 3 # we want to filter every between START_INS and END_INS out and then insert crap from another file (this is fun) 4 5 $dst = shift; 6 $ins = shift; 7 8 open(SRC,"<$dst"); 9 open(INS,"<$ins"); 10 open(TMP,">tmp.delme"); 11 12 $l = 0; 13 while (<SRC>) { 14 if ($_ =~ /START_INS/) { 15 print TMP $_; 16 $l = 1; 17 while (<INS>) { 18 print TMP $_; 19 } 20 close INS; 21 } elsif ($_ =~ /END_INS/) { 22 print TMP $_; 23 $l = 0; 24 } elsif ($l == 0) { 25 print TMP $_; 26 } 27 } 28 29 close TMP; 30 close SRC; 31
