Merge pull request #13 from berq/patch-13
[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" -a \! -name "*_generated.tex" -print`;
12 my $f;
13
14 foreach  $f ( @files)  {
15         chomp $f;
16         $f =~ /(.*)\.tex/;
17         my $ftex = "$1_generated.tex";
18
19         my $rc=` grep -q "\@\@\@CIPHERSTRINGB\@\@\@" $f`;
20         if ($rc == 0) {
21
22                 print "file = $f\n" if $debug;
23                 print "ftex = $ftex\n" if $debug;
24
25                 open(FH,    "<", $f ) or die "could not open file $f: $!";
26                 open(FHOUT, ">", $ftex ) or die "could not open file $ftex: $!";
27                 
28                 while (<FH>) {
29                         $_ =~ s/\@\@\@CIPHERSTRINGB\@\@\@/$cipherStrB/g;
30                         print FHOUT $_;
31                 }
32         }
33         else {
34                 print "skipping file $f\n" if $debug;
35         }
36 }