# Strict
use strict;
use warnings;

# Libraries
use Data::Dumper;

#variables definition
my (@filenames, @strings, @text);

#read user defigned tables filenames;
if(!$ARGV[1]){
    die "Please provide with the at least 2 file names. Good luck!!!";
};


foreach my $element (@ARGV)
{
    if ($element =~ /-help=/i) {
        print STDERR "Please provide with the at least 2 filenames\n"; exit;
    }
    else {
        push (@filenames, $element);
    }
}



# Define master hash "$ptables"
my $ptables;

#read files and add data to the HoA:
foreach my $file (@filenames) {
    my @string_array;
    #read input file and define arrays of strings
    open (FILE, "<$file") or die "$!";
    while (<FILE>)
    {
	   for my $chank (split /\n/)
	   { push (@string_array, $chank);}
    }
    close (FILE);
    
    (my $hash_key = $file) =~ s/\.txt//; # generate hash key
    $ptables->{$hash_key} = [ @string_array ]; # save all strings to the hash
    print Dumper(\$ptables);
    undef @string_array;
}


# Globals
my %output;
my %ncolumns;
my %values;
my @tables = (sort keys %$ptables);                 # Get all table names

# Main program

# First pass -- parse each table to fetch all the IDs
print "=== Pass 1 ===\n";

foreach my $table (@tables) {
    my $ptab = $ptables->{$table};                  # Assign to table
    my @rows = split(/\s*\|\s*/, shift @$ptab);     # Get column headings
    shift @rows;                                    # Discard "ID column"
    my $ncols = @rows;                              # Find number of columns
    $ncolumns{$table} = $ncols;                     # Save # of columns
    print "Reading $table; $ncols col(s)...\n";     # Announce table name
    foreach my $line (@$ptab) {
        my ($id,@vals) = split(/\s*\|\s*/, $line);  # Get ID and values
        $output{$id} ||= [ ];                       # Placeholder for ID
        $values{$table}{$id} = [ @vals ];           # Save values for table/ID
    }
}

# Second pass -- process each ID, adding values from each table
my @ids = (sort keys %output);
print "=== Pass 2 ===\n";
foreach my $id (@ids) {
    print "Processing ID $id\n";
    my $pout = $output{$id};                        # Get current ID list
    foreach my $table (@tables) {
        my $ncols = $ncolumns{$table};              # Get number of columns
        my $pvalues = $values{$table}{$id};         # Get values for table/ID
        if (defined($pvalues)) {
            push @$pout, @$pvalues;                 # Save values
        } else {
            push @$pout, ( "n.a." ) x $ncols;       # Missing value = N/A
        }
    }
}

# Verify results
print "=== Verify results ===\n";
foreach my $id (@ids) {
    my $pvalues = $output{$id};
    printf "%12.12s | %s\n", $id, join(" | ", @$pvalues);
}