View of /trunk/webwork/system/scripts/convert_1_CAPA_2_PG.pl

    1 #!/usr/local/bin/webwork-perl
    2 
    3 BEGIN {
    4   my $useLibDir = '.';
    5   if    ($0 =~ m|^(/.*)/|)  { $useLibDir = $1; }
    6   elsif ($0 =~ m|^(\..*)/|) { $useLibDir = $1; }
    7   elsif ($0 =~ m|^(.+)/|)   { $useLibDir = "./$1"; }
    8   unshift @INC, $useLibDir;
    9 }
   10 
   11 use webworkInit; # WeBWorKInitLine
   12 use capa2PG;
   13 
   14 
   15 # begin Timing code
   16 use Benchmark;
   17 my $beginTime = new Benchmark;
   18 # end Timing code
   19 
   20 
   21 
   22  my $ARGV;
   23  my @file_lines;
   24 unless ( @ARGV) {
   25   print "Useage   convert_1_CAPA_2_PG.pl  input_file   >output.file\n\n";
   26   exit;
   27 }
   28  while ($ARGV = shift) {
   29      print "#   READING FROM $ARGV\n\n";
   30 
   31     open(ARGV, "<$ARGV") || die " Can't read file $ARGV ";
   32     @file_lines = <ARGV>;
   33     close(ARGV);
   34     print parse_CAPA_file(\@file_lines);
   35  }
   36 
   37 ## begin Timing code
   38 my $endTime = new Benchmark;
   39 print "\n#################################################\n## Processing time = ", timestr( timediff($endTime,$beginTime) ),
   40       "\n#################################################\n";
   41 ## end Timing code