Mercurial > dropbear

comparison libtomcrypt/filter.pl @ 478:d4f32c3443ac dbclient-netcat-alike

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
propagate from branch 'au.asn.ucc.matt.dropbear' (head f21045c791002d81fc6b8dde6537ea481e513eb2) to branch 'au.asn.ucc.matt.dropbear.dbclient-netcat-alike' (head d1f69334581dc4c35f9ca16aa5355074c9dd315d)
author Matt Johnston <matt@ucc.asn.au>
date Sun, 14 Sep 2008 06:47:51 +0000
parents 0cbe8f6dbf9e
children
comparison
equal deleted inserted replaced
296:6b41e2cbf071 478:d4f32c3443ac
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
8 open(SRC,"<$dst");
9 open(INS,"<$ins");
10 open(TMP,">tmp.delme");
11
12 $l = 0;
13 while (<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
29 close TMP;
30 close SRC;