3575 out.2023-07-08T09:21:02.csv
296 out.2023-07-08T09:21:02.log
54 out.2023-07-08T09:21:02.skip
}
open(my $skipped_input, '>',"out.$today.skip");
}
open(my $skipped_input, '>',"out.$today.skip");
-open(my $out_fh, '>', "out.$today");
+open(my $out_fh, '>', "out.$today.csv");
my @out_header;
while(<$fh>) {
my @out_header;
while(<$fh>) {
push @out_header, map { $h2[$_] }
( $h2nr->{'AU01_c'} .. $h2nr->{'AU45_c'} );
warn "# out_header ",dump( \@out_header );
push @out_header, map { $h2[$_] }
( $h2nr->{'AU01_c'} .. $h2nr->{'AU45_c'} );
warn "# out_header ",dump( \@out_header );
- print $out_fh join("\t", @out_header),"\n";
+ print $out_fh join(",", @out_header),"\n";
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 ) if $debug;
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 ) if $debug;
- print $out_fh join("\t", @v, @add_cols ), "\n";
+ print $out_fh join(",", @v, @add_cols ), "\n";