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 8open(SRC,"<$dst"); 9open(INS,"<$ins"); 10open(TMP,">tmp.delme"); 11 12$l = 0; 13while (<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 29close TMP; 30close SRC; 31