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