#!/usr/bin/perl my $csv = "$ARGV[0]"; $filename = $csv; $filename =~ s/.csv//; open(Data,"$csv"); open(testlist, "testlist.txt"); while (<testlist>) { push (@testlist,$_); } $TotalTest = @testlist; close (testlist) || die "Couldn't close file properly"; open(summary, ">../$csv"); print summary "Test,PassCount,FailCount\n"; foreach $test (@testlist) { chomp $test; open(passfailtest,"$csv"); $pass_count = 0; $fail_count = 0; while (<passfailtest>) { if ($_ =~ /\b$test\b/) { #print "$_"; if ($_ =~ /Pass/) { $pass_count ++; } if ($_ =~ /Fail/) { $fail_count ++; } } } print summary "$test,$pass_count,$fail_count\n"; }
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)