#!/usr/local/bin/perl

use strict;
use warnings;
use Data::Dumper;

$/ = "";

my @InputFiles = (</usr/mlm/qa/logs/hhl/BATCH*/*/*_checksum.log>);


foreach my $InputFile ( @InputFiles ) {

  print "$InputFile\n";

    my %errors;

    open my $input_fh, '<', $InputFile
      or die "Can't open input file ($InputFile): $!";

    my $uid = <$input_fh>;
    ($uid) = $uid =~ /UID=(\S+)/;

    while ( my $record = <$input_fh> ) {
        my ($md5)      = $record =~ /METS:.+?MD5=(\S+)/;
        my ($filename) = $record =~ /Filename=(\S+)/;
        #my ($error)    = $record =~ /[Error] +MD5=(\S+)/;
        my ($error)    = $record =~ /\Q[Error]\E .+MD5=(\S+)/;

        if ( $error ) {
            $errors{$filename}{md5}      = $md5;
            $errors{$filename}{computed} = $error;
        }
    }
    close $input_fh;

    my $count = keys %errors;


     foreach my $filename ( sort keys %errors ) {
        print join('|', $uid,
                      $filename,
                      $count,
                      $errors{$filename}{md5},
                      $errors{$filename}{computed}
                ),"\n";
     
     }
}