Shell Programming and Scripting

test case name:    testcase1.txt
passed:           1
failed:           0

Trial    Trial Start Time             Result
1    20110106 06:15:19.044 PST    PASSED

test case name:    testcase2.txt
passed:           1
failed:           0

Trial    Trial Start Time             Result
1    20110106 06:15:19.044 PST    FAILED

S.No    TestCaseName    Result
1    testcase1.txt    
2    testcase2.txt

S.No    TestCaseName    Result
1    testcase1.txt    PASSED
2    testcase2.txt    FAILED

find "${@}" -type f -name .results -print | xargs awk '/^test case name:/ { testcase = $NF; } NR == FNR { printf "%-30s  %s\n", testcase, $NF; }'

use strict;
use warnings;

$\ = "\n";
$, = '';

my @FILELIST = ();
my @DIRLIST  = qw{ . };

# search the current directory and all subdirectories for result files

while (0 < @DIRLIST) {

    my $dir = shift @DIRLIST;

    unless (opendir DH, $dir) {
        print STDERR $dir, ': ', $!;
        next;
    }

    my @DL = readdir DH;
    close DH;

    for (@DL) {
        next if /^\./;

        my $entry = $dir . '/' . $_;

        if (m{\.results$}) {
            push @FILELIST, $entry;
            next;
        }
          
        if (-d $entry) {
            push @DIRLIST, $entry;
        }
    }

    closedir DH;
}

undef $/;
 
my %T = ();

# parse all result files

foreach my $file (@FILELIST) {
       
    unless (open FH, '<', $file) {
        print STDERR $file, ': ', $!;
        next;
    }

    $_ = <FH>;
    close FH;

    my ($testcase) = m{^test case name:\s+(\S+)\s*$}m;
    my ($status)   = m{(PASSED|FAILED)\s*$}m;

    unless (defined $testcase and defined $status) {
        print STDERR $file, ': not a results file';
        next;
    }

    if (defined $T{$testcase}) {
        print STDERR $file, ': duplicate testcase - ', $testcase, ' (', $status, ')';
        next;
    }
       
    $T{$testcase} = $status
}

$/ = "\n";

$_ = <>;
chomp;
print $_;

while (<>) {
    chomp;
    my ($sno, $testcase) = m{^\s*(\d+)\s+(\S+)\s*$};

    unless (defined $testcase) {
        print STDERR $ARGV, '(', $., '): malformed line - ', $_;
        next;
    }

    $T{$testcase} = 'UNDEFINED' unless defined $T{$testcase};
    printf "\%-4d \%-19s \%s\n", $sno, $testcase, $T{$testcase};
}