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({escape_char => "+", allow_loose_quotes => 1});
19 open CSV, '<', shift or die "Can't open file $!\n";
23 my @chunks = $csv->fields;
26 { push @out, $chunks[$_]}
27 print join("\t", @out), "\n";