6 # * use tag generator to expand list of wanted fields?
7 # * insertion of constant-value fields
8 # * field mapping ("some text" -> 4)?
10 # csv-extractor FILENAME FIELD_LIST
17 my $csv = Text::CSV->new( {binary => 1});
19 open CSV, '<', shift or die "Can't open file $!\n";
23 die "Bad data on line $.\n$_\n" if ($csv->error_diag);
24 my @chunks = $csv->fields;
27 { push @out, $chunks[$chunk] }
28 print join("\t", @out), "\n";