reformat ECC section
[ach-master.git] / src / perlify.pl
1 #!/usr/bin/env perl
2
3 use strict;
4 use File::Basename;
5
6 my $debug=1;
7 my @exclude=('DH.tex', 'ECC.tex', 'LATER.tex', 'PKIs.tex', 'RNGs.tex', 'abstract.tex', 'acknowledgements.tex', 'applied-crypto-hardening.tex', 'bib.tex', 'cipher_suites.tex', 'disclaimer.tex', 'further_research.tex', 'howtoread.tex', 'keylengths.tex', 'links.tex', 'methods.tex', 'motivation.tex', 'practical_settings.tex', 'reviewers.tex', 'scope.tex', 'ssllibs.tex', 'suggested_reading.tex', 'template.tex', 'tools.tex');
8
9 my $cipherStrB=`cat cipherStringB.txt`;
10 chomp $cipherStrB;
11
12 my @files=`find . -name "*.tex" -a \! -name "*_generated.tex" -print`;
13 my $f;
14
15 foreach  $f ( @files)  {
16         chomp $f;
17         $f =~ /(.*)\.tex/;
18         my $fbasename = basename($f);
19         my $ftex = "$1_generated.tex";
20
21         system("grep", "-q", "\@\@\@CIPHERSTRINGB\@\@\@" , $f);
22         if ($? eq 0 ) { #and not (/$fbasename/ ~~ @exclude)) {
23
24                 print "file = $f\n" if $debug;
25                 print "ftex = $ftex\n" if $debug;
26
27                 open(FH,    "<", $f ) or die "could not open file $f: $!";
28                 open(FHOUT, ">", $ftex ) or die "could not open file $ftex: $!";
29                 
30                 while (<FH>) {
31                         $_ =~ s/\@\@\@CIPHERSTRINGB\@\@\@/$cipherStrB/g;
32                         print FHOUT $_;
33                 }
34         }
35         else {
36                 print "skipping file $f\n" if $debug;
37         }
38 }