38 lines
793 B
Perl
38 lines
793 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
#!/usr/local/bin/parallel --shebang-wrap --pipe --block 10m -k --files /usr/bin/perl | xargs paste
|
||
|
|
|
||
|
|
use Text::CSV;
|
||
|
|
use File::Temp qw(tempfile tempdir);
|
||
|
|
|
||
|
|
my $csv;
|
||
|
|
my (@table);
|
||
|
|
my $first_line = 1;
|
||
|
|
my $col = 0;
|
||
|
|
while(my $l = <>) {
|
||
|
|
if($first_line) {
|
||
|
|
my $csv_setting = guess_csv_setting($l);
|
||
|
|
$csv = Text::CSV->new($csv_setting)
|
||
|
|
or die "Cannot use CSV: ".Text::CSV->error_diag ();
|
||
|
|
$first_line = 0;
|
||
|
|
}
|
||
|
|
if(not $csv->parse($l)) {
|
||
|
|
die "CSV has unexpected format";
|
||
|
|
}
|
||
|
|
# append to each row
|
||
|
|
my $row = 0;
|
||
|
|
|
||
|
|
for($csv->fields()) {
|
||
|
|
$table[$row][$col] = defined($_) ? $_ : '';
|
||
|
|
$row++;
|
||
|
|
}
|
||
|
|
$col++;
|
||
|
|
}
|
||
|
|
|
||
|
|
print map { join("\t",@$_),"\n" } @table;
|
||
|
|
|
||
|
|
sub guess_csv_setting {
|
||
|
|
# Based on a single line guess the csv_setting
|
||
|
|
return { binary => 1 };
|
||
|
|
}
|