Mercurial > dropbear
view libtomcrypt/filter.pl @ 463:33d5e9fb0f78 agent-client
propagate from branch 'au.asn.ucc.matt.dropbear' (head fb7080ca6e254faaf7cfaee93b0ab6ab6de4ed59)
to branch 'au.asn.ucc.matt.dropbear.cli-agent' (head 78d02301ae8310efa2639f15da0ea62dea110e4b)
author | Matt Johnston <matt@ucc.asn.au> |
---|---|
date | Thu, 29 Nov 2007 11:38:06 +0000 |
parents | 0cbe8f6dbf9e |
children |
line wrap: on
line source
#!/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;