gradeall.pl

来自「SSD6网上教程全部练习及答案 原版的正确答案」· PL 代码 · 共 18 行

$handindir = "..\\handin";
$feedbacksubdir = "feedback";

opendir(DIR, $handindir)
    or die print "Couldn't open $handindir\n";
@userdirs = grep(!/^\.\.?$/, readdir(DIR)); # elide . and .. from the list
@userdirs = sort(@userdirs);
closedir(DIR);

foreach $dir (@userdirs) {
	`del debugmalloc.c`;
	`copy $handindir\\$dir\\debugmalloc.c .`;
	`nmake -f debugmalloc.mak CLEAN`;
	`nmake -f debugmalloc.mak`;
	`grader.pl > $handindir\\$dir\\$feedbacksubdir\\feedback.txt`;
}