Run_regress--perl

#!/usr/bin/perl
Print "Testlist File Name: @ARGV \ n";
My $testlist = $ARGV [0];

Open (Rd_file, "$testlist");
@all_cases = <RD_FILE>;

# #TODO Add your command
My $qsub _cmd = ""
My $run _cmd;
My $case _name;

foreach $case (@all_cases) {
# #remove Blank Line
if (! ( $case =~/^[\s.*]$/)) {
Chomp ($case);

# #remove seed for Case name
$case _name = $case;

if ($case _name =~/(\w*) (\s*) seed=/) {
$case _name = $;
}

$run _cmd = $qsub _cmd. "$case _name". "Make test= $case";
print "Run command: $run _cmd\n";
System ($run _cmd);
}

}

Run_regress--perl