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 }