run_regress --perl
Posted bky-lxin
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了run_regress --perl相关的知识，希望对你有一定的参考价值。
#!/usr/bin/perl
print "TESTLIST File Name: @ARGV
";
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
";
system($run_cmd);
}
}
以上是关于run_regress --perl的主要内容，如果未能解决你的问题，请参考以下文章