add epigraph
[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 chomp $cipherStrB;
10
11 my @files=`find . -name "*.tex.template" -print`;
12 my $f;
13
14 foreach  $f ( @files)  {
15         chomp $f;
16         $f =~ /(.*\.tex)\.template/;
17         my $ftex = $1;
18
19         print "file = $f\n" if $debug;
20         print "ftex = $ftex\n" if $debug;
21
22         open(FH,    "<", $f ) or die "could not open file $f: $!";
23         open(FHOUT, ">", $ftex ) or die "could not open file $ftex: $!";
24         
25         while (<FH>) {
26                 $_ =~ s/\@\@\@CIPHERSTRINGB\@\@\@/$cipherStrB/g;
27                 print FHOUT $_;
28         }
29 }