automatic patching of tex files for cipher strings
[ach-master.git] / src / perlify.pl
1 #!/usr/bin/env perl
2
3 use strict;
4
5
6 my $debug=1;
7
8 my $cipherStrB=`cat cipherStringB.txt`;
9
10
11 my @files=`find . -name "*.tex.template" -print`;
12 my $f;
13
14 foreach  $f ( @files)  {
15         print "file = $f\n" if $debug;
16         $f =~ /(.*\.tex\.)template/;
17         my $ftex = $1;
18
19
20         open(FH,    "<", $f ) or die "could not open file $f: $!";
21         open(FHOUT, ">", $ftex ) or die "could not open file $ftex: $!";
22         
23         while (<FH>) {
24                 $_ =~ s/\@\@\@CIPHERSTRINGB\@\@\@/$cipherStrB/g;
25                 print FHOUT $_;
26         }
27 }