Return to convert.pl CVS log

Up to [LON-CAPA] / loncom / homework / CAPA-converter / conversion_wrapper

Annotation of loncom/homework/CAPA-converter/conversion_wrapper/convert.pl, revision 1.1

1.1     ! albertel    1: #!/usr/bin/perl
        !             2: 
        !             3: if ($#ARGV != 1) {
        !             4:   print "Correct command usage: \n";
        !             5:   print "   perl convert.pl [DIRECTORY_TO_CONVERT] [NEW_DIRECTORY]\n";
        !             6: }
        !             7: 
        !             8: $olddir = $ARGV[0];
        !             9: $newdir = $ARGV[1];
        !            10: 
        !            11: @problem = `ls -B $olddir/ | grep -v bak`;
        !            12: chomp @problem;
        !            13: 
        !            14: for($index=0;$index<=$#problem;$index++) {
        !            15:   $newprob = $problem[$index];
        !            16:   $newprob =~ s/txt/problem/;
        !            17: #  $newprob = $newprob.".problem";
        !            18:   open( CONVERT, ">$newdir/$newprob" );
        !            19:   print CONVERT "<problem>\n";
        !            20:   $convert =
        !            21: `/home/felicia/loncapa/loncom/homework/CAPA-converter/Linux/convert -f
        !            22: $olddir/$problem[$index]`;
        !            23:   print CONVERT "$convert";
        !            24:   print CONVERT "\n</problem>\n";
        !            25:   close CONVERT;
        !            26: }
        !            27: