#!/usr/bin/perl
#Copyright 2021 O. Sotolongo <asqwerty@gmail.com>

use strict;
use warnings;

my $rdir = shift;
my $stat = shift;
my @users = `ls $rdir/*/$stat.stats | awk -F"/" '{print \$2}'`;
chomp @users;

my $okheader = 0;
print "Subject_ID";
foreach my $user (@users){
        my @tdata = `grep -v "^#" $rdir/$user/$stat.stats | awk '{print \$5","\$4}'`;
        chomp @tdata;
        my %udata = map { my ($key, $value) = split ","; $key => $value } @tdata;
        unless ($okheader) {
                foreach my $dhead (sort keys %udata){
                        print ", $dhead";
                }
                $okheader = 1;
                print "\n";
        }
        print "$user";
        foreach my $roi (sort keys %udata){
                print ", $udata{$roi}";
        }
        print "\n";
}