#!/usr/bin/perl

#use Data::Dumper;

$f1 = './1.txt';
$f2 = './2.txt';

$inv = {};

open(my $fh, $f2) or die "$!: $f2\n";
while(<$fh>) {
    s/\s+$//s;
    my ($i, $n, $q, $v, $c) = split /\t/, $_;
    next unless $i > 0 && $n ne '';
    $inv->{$n}->{q} += $q;
    $inv->{$n}->{v} += $v;
}
close $fh;

open(my $fh, $f1) or die "$!: $f1\n";
while(<$fh>) {
    s/\s+$//s;
    my ($i, $n, $q, $v, $c) = split /\t/, $_;
    next unless $i > 0 && $n ne '';
    $inv->{$n}->{q} -= $q;
    $inv->{$n}->{v} -= $v;
}
close $fh;

$t = 0;
foreach $k (sort keys %$inv) {
    if (abs($inv->{$k}->{v}) < 0.01) {
        delete $inv->{$k};
    }
    else {
        printf "%-50s %+7d %+9.2f\n", $k, $inv->{$k}->{q}, $inv->{$k}->{v};
        $t += $inv->{$k}->{v};
    }
}
printf "%-58s %+9.2f\n", 'Total +/- TT value', $t;

#print Dumper($inv);