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

    1 #!/usr/local/bin/perl
    2 
    3 use lib '.'; use webworkInit; # WeBWorKInitLine
    4 use capa2PG;
    5 
    6 
    7 # begin Timing code
    8 use Benchmark;
    9 my $beginTime = new Benchmark;
   10 # end Timing code
   11 
   12 
   13 
   14  my $ARGV;
   15  my @file_lines;
   16 unless ( @ARGV) {
   17   print "Useage   convert_1_CAPA_aux_2_PG.pl  input_file   >output.file\n\n";
   18   exit;
   19 }
   20  while ($ARGV = shift) {
   21      print "#   READING FROM $ARGV\n\n";
   22 
   23     open(ARGV, "<$ARGV") || die " Can't read file $ARGV ";
   24     @file_lines = <ARGV>;
   25     close(ARGV);
   26     print parse_CAPA_aux_file(\@file_lines);
   27  }
   28 
   29 ## begin Timing code
   30 my $endTime = new Benchmark;
   31 print "\n#################################################\n## Processing time = ", timestr( timediff($endTime,$beginTime) ),
   32       "\n#################################################\n";
   33 ## end Timing code