run_regress --perl

標籤：stl   system   CM   foreach   cas   AC   remove   man   ##   

#!/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 = $1;
}

$run_cmd = $qsub_cmd." $case_name"." make test=$case";
print "Run command: $run_cmd\n";
system($run_cmd);
}

}

run_regress --perl