mirror of
https://github.com/clearml/dropbear
synced 2025-01-31 02:46:58 +00:00
a938f4cfe1
to branch 'au.asn.ucc.matt.dropbear' (head 02c413252c90e9de8e03d91e9939dde3029f5c0a) --HG-- extra : convert_revision : 52ccb0ad0587a62bc64aecb939adbb76546aac16
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;
|