From 910cb88de45f41a2d2653f01fd78c202a6ae8227 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 7 Jul 2023 14:23:47 +0200
Subject: [PATCH] update

---
 p.pl | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/p.pl b/p.pl
index 0457f63..d61c5e4 100755
--- a/p.pl
+++ b/p.pl
@@ -66,7 +66,7 @@ while(<$fh>) {
 	while(<$fh2>) {
 		chomp;
 		warn "##[ $_ ]\n";
-		my @v2 = split(/\t/,$_);
+		my @v2 = map { s/^\s+//; $_ } split(/\t/,$_);
 		if ( ! @h2 ) {
 			@h2 = @v2;
 			$h2nr = col2nr @h2;
@@ -81,16 +81,18 @@ while(<$fh>) {
 			die "can't find $name in ",dump( $h2nr ) unless defined $i;
 			my $v = $v2[$i];
 			die "can't find $i : $name in ",dump( \@v2 ) unless defined $v;
-			return "### col_v2($name) = $v";
+			return "### col_v2 $name $i = $v";
 			return $v;
 		}
 
 
 		#my $timestamp = $v2[ $h2nr->{'timestamp'} ] || die;
-		my $timestamp = col_v2 'timestamp';
+		#my $timestamp = col_v2 'timestamp';
+		my $timestamp = $v2[2];
+warn "XXX ",dump( $timestamp ); #$h2nr, \@v2 );
 
 		if ( $timestamp < $start ) {
-			warn "# < $start @v2";
+			warn "# $start > @v2";
 		} elsif ( $timestamp < $stop ) {
 			$tell2 = tell($fh2);
 			foreach my $n ( $h2nr->{'AU01_r'} .. $h2nr->{'AU45_c'} ) {
-- 
2.20.1