From 1fbd1c80d58f24009ea2cfed35f26c767ac74761 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 7 Jul 2023 13:24:53 +0200
Subject: [PATCH] parse

---
 p.pl | 122 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 122 insertions(+)
 create mode 100755 p.pl

diff --git a/p.pl b/p.pl
new file mode 100755
index 0000000..727f425
--- /dev/null
+++ b/p.pl
@@ -0,0 +1,122 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use autodie;
+use Data::Dump qw(dump);
+
+my $filename = 'Intervali_Openface_novi_rad_Boris_export.txt';
+
+sub col2nr {
+	my @c = @_;
+	my $i = 0;
+	my $out;
+	$out->{$_} = $i++ foreach @c;
+	warn "# col2nr ", dump( $out );
+	return $out;
+}
+
+open(my $fh, '<', $filename);
+
+my $h = <$fh>; chomp $h;
+my @cols = split(/\t/, $h);
+my $col2nr = col2nr @cols;
+
+my $file2;
+my $fh2;
+my $last_id;
+
+my @h2;
+my $h2nr;
+my $tell2;
+
+
+while(<$fh>) {
+	chomp;
+	my @v = split(/\t/, $_);
+	#warn "#[ $_ ]\n";
+
+	if ( ! $last_id || $last_id ne $v[0] ) {
+		$file2 = glob $v[0] . '*';
+
+		next unless $file2; # FIXME
+
+		warn "# file2 $file2 [$v[0]]";
+		open($fh2, '<', $file2);
+		$last_id = $v[0];
+	}
+
+	sub col_v {
+		my $name = shift;
+		my $i = $col2nr->{$name};
+		die "can't find $name" unless defined $i;
+		my $v = $v[$i];
+		die "can't find $i : $name in ",dump( \@v ) unless defined $v;
+		return $v;
+	}
+
+	#my $start = $v[ $col2nr->{'Start (s)'} ];
+	#my $stop  = $v[ $col2nr->{'Stop (s)'} ];
+
+	my $start = col_v 'Start (s)';
+	my $stop  = col_v 'Stop (s)';
+
+	my @sum;
+	my $count = 0;
+
+	while(<$fh2>) {
+		chomp;
+		warn "##[ $_ ]\n";
+		my @v2 = split(/\t/,$_);
+		if ( ! @h2 ) {
+			@h2 = @v2;
+			$h2nr = col2nr @h2;
+			$tell2 = tell($fh2);
+			warn "# h2nr ",dump( $h2nr );
+			next;
+		}
+
+		sub col_v2 {
+			my $name = shift;
+			my $i = $h2nr->{$name};
+			die "can't find $name in ",dump( $h2nr ) unless defined $i;
+			my $v = $v2[$i];
+			die "can't find $i : $name in ",dump( \@v ) unless defined $v;
+			return $v;
+		}
+
+
+		#my $timestamp = $v2[ $h2nr->{'timestamp'} ] || die;
+		my $timestamp = col_v2 'timestamp';
+
+		if ( $timestamp < $start ) {
+			warn "# < $start @v2";
+		} elsif ( $timestamp < $stop ) {
+			$tell2 = tell($fh2);
+			foreach my $n ( $h2nr->{'AU01_r'} .. $h2nr->{'AU45_c'} ) {
+				$sum[$n] += $v[$n];
+			}
+			$count++;
+		} else {
+			warn "# seek $tell2";
+			seek $fh2, $tell2, 0;
+
+			print join("\t", @v,
+				map { $sum[$_] / $count } ( $h2nr->{'AU01_r'} .. $h2nr->{'AU45_r'} ),
+				map { $sum[$_] }          ( $h2nr->{'AU01_c'} .. $h2nr->{'AU45_c'} ),
+			);
+		}
+	}
+}
+
+__END__
+
+
+my $col2nr;
+
+# prema filenamenu iz $v[0]
+# Start (s)       Stop (s)
+
+my $lookup_file = '
+
+# col timestamp
+# 
-- 
2.20.1