6 (print "$ARGV[0]: chdir: $!\n"), usage () if !chdir ($ARGV[0]);
10 cleanup, cleans up extra files in submission directories.
13 where HWDIR is a directory whose subdirectories contain grade.txt files
14 in the format produced by the submit script.
16 Only subdirectories whose names are entirely alphanumeric and contain
17 a grade.txt file are cleaned. Other files and directories are unaffected.
22 for my $group (grep (/^[[:alnum:]]+$/, glob ('*'))) {
23 -e "$group/grade.txt" or next;
25 print "Cleaning $group...\n";
26 system ("rm -rf $group/pintos");
27 system ("rm -f $group/*~");