calcuate something

diff --git a/p.pl b/p.pl
index b296ec5..0a85b1e 100755 (executable)
--- a/p.pl
+++ b/p.pl
@@ -34,7 +34,7 @@ while(<$fh>) {
        chomp;
        next if m/^\s*$/;       # FIXME corrput data
        my @v = split(/\t/, $_);
-       warn "#[ $_ ]\n";
+       warn "#[ $_ ]\n", dump( \@v );
 
        if ( ! $last_id || $last_id ne $v[0] ) {
                $file2 = glob 'originals_2023-07-07/' . $v[0] . '*.csv';
@@ -53,6 +53,7 @@ warn "---0000 v=",dump( \@v ), " FROM >>>$_<<<\n";
                die "can't find $name" unless defined $i;
                my $v = $v[$i];
                die "can't find $i : $name in ",dump( \@v ) unless defined $v;
+               warn "## col_v $name -> $i -> $v",dump( \@v );
                return $v;
        }
 
@@ -61,13 +62,16 @@ warn "---0000 v=",dump( \@v ), " FROM >>>$_<<<\n";
 
        my $start = col_v 'Start (s)';
        my $stop  = col_v 'Stop (s)';
+
+       my $start = $v[10];
+       my $stop  = $v[11];
        warn "# start: $start - stop: $stop\n";
 
        my @sum;
        my $count = 0;
 
        while(<$fh2>) {
-               chomp;
+               chomp; s/\r+$//;
                warn "## fh2 [ $_ ]\n";
                #my @v2 = map { s/^\s+//; $_ } split(/\t/,$_);
                my @v2 = map { s/^\s+//; $_ } split(/,\s+/,$_);
@@ -106,22 +110,25 @@ warn "---0000 v=",dump( \@v ), " FROM >>>$_<<<\n";
                                #warn "sum $n $sum[$n] $v2[$n]\n";
                        }
                        $count++;
-                       warn "XXX $count sum = ",dump( \@sum );
+                       #warn "XXX $count sum $h2nr->{'AU01_r'} .. $h2nr->{'AU45_c'} = ",dump( \@sum );
                } else {
                        warn "# seek $tell2";
                        seek $fh2, $tell2, 0;
 
                        die "count is 0" if $count == 0;
 
-                       warn "XXX count=$count XXX ", $h2nr->{'AU01_r'},' - ', $h2nr->{'AU45_r'} , " YYY ", $h2nr->{'AU01_c'}, ' - ', $h2nr->{'AU45_c'}, ' sum=', dump( \@sum );
-warn "--- v=",dump( \@v );
-                       print join("\t", @v,
-                               map { $sum[$_] / $count } ( $h2nr->{'AU01_r'} .. $h2nr->{'AU45_r'} ),
-                               map { $sum[$_] }          ( $h2nr->{'AU01_c'} .. $h2nr->{'AU45_c'} ),
-                       ), "\n";
+                       #warn "XXX $file2 count=$count XXX ", $h2nr->{'AU01_r'},' - ', $h2nr->{'AU45_r'} , " YYY ", $h2nr->{'AU01_c'}, ' - ', $h2nr->{'AU45_c'}, ' sum=', dump( \@sum );
+                       my @add_cols;
+                       push @add_cols, map { $sum[$_] / $count } ( $h2nr->{'AU01_r'} .. $h2nr->{'AU45_r'} );
+                       push @add_cols, map { $sum[$_] }          ( $h2nr->{'AU01_c'} .. $h2nr->{'AU45_c'} );
+                       warn "# add_cols = ",dump( \@add_cols );
+                       print join("\t", @v, @add_cols ), "\n";
 
                        @sum = ();
                        $count = 0;
+
+                       warn "# last";
+                       last;
                }
        }
 }