mirror of
https://github.com/clearml/dropbear
synced 2025-03-09 13:30:45 +00:00
f3b834d536
--HG-- branch : libtomcrypt-orig extra : convert_revision : 52840647ac7f5c707c3bd158d119a15734a7ef28
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;
|