31 lines
517 B
Perl
31 lines
517 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
# we want to filter every between START_INS and END_INS out and then insert crap from another file (this is fun)
|
||
|
|
|
||
|
|
$dst = shift;
|
||
|
|
$ins = shift;
|
||
|
|
|
||
|
|
open(SRC,"<$dst");
|
||
|
|
open(INS,"<$ins");
|
||
|
|
open(TMP,">tmp.delme");
|
||
|
|
|
||
|
|
$l = 0;
|
||
|
|
while (<SRC>) {
|
||
|
|
if ($_ =~ /START_INS/) {
|
||
|
|
print TMP $_;
|
||
|
|
$l = 1;
|
||
|
|
while (<INS>) {
|
||
|
|
print TMP $_;
|
||
|
|
}
|
||
|
|
close INS;
|
||
|
|
} elsif ($_ =~ /END_INS/) {
|
||
|
|
print TMP $_;
|
||
|
|
$l = 0;
|
||
|
|
} elsif ($l == 0) {
|
||
|
|
print TMP $_;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
close TMP;
|
||
|
|
close SRC;
|