get_result --perl

Posted 2020-11-19 bky-lxin

#!/usr/bin/perl

use File::Basename;

my $result_dir = $ARGV[0];

my $result_testlog_dir = "$result_dir/testlog";

opendir DIR, $result_testlog_dir;

my $result_log_file = "$result_dir/regress_result.log"
system("touch $result_log_file");

my $all_results;

foreach $file(readdir DIR) {
my ($filename, $dir, $suffix) = fileparse($file, qr/.[^.]*/);

if($suffix =~ /log/) {
my $result = `grep "TEST_RESULTS" $result_testlog_dir/$file`;
chomp($result);
$all_results = $all_results."$results $result_testlog_dir/$file ";

}
}

open(WR_FILE, ">$result_log_file");
print WR_FILE, $all_results;

print "RESULT FILE: $result_log_file "