#!/usr/bin/perl
use warnings;
use strict;

my $dircom = "completes";
my $list_file = "list.txt";
my @exch = qw(EXCH1 EXCH2 EXCH3 EXCH4 EXCH5);

opendir my($mydir), $dircom;
my @files = grep !/^\.\.?$/, readdir $mydir;
close ($mydir);

open (my $lis, "+>", $list_file) || die ("Can't open $list_file");

foreach my $file (@files) {

    open (my $fil, "$dircom\\$file") || die ("test");
    my @completefile = <$fil>;
    chomp @completefile;
    close $fil;

    print $lis "\n$file\n";
    
	foreach my $exch (@exch) {
        my @su_output = ();
        my @dc_output = ();
		foreach (reverse @completefile) {
            @su_output = /^.+\\(.+)_.+\..+?:(.+?)\s-\s(.+?)\s.+\/($exch)\s\|.+::(.*Up)\(\)/;
            last if @su_output;
        }
        foreach (reverse @completefile) {
            @dc_output = /^.+\\(.+)_.+\..+?:(.+?)\s-\s(.+?)\s.+\/($exch)\s\|.+::(.*Up)\(\)/;
            last if @dc_output;
        }
        if(@su_output) {
            print $lis join(",",@su_output), "\n";
        } else {
            print $lis "No su results for $exch";
        }
        if(@dc_output) {
            print $lis join(",",@dc_output), "\n";
        } else {
            print $lis "No dc results for $exch";
        }
	}
}
close $lis;