Re: trouble with text::csv

You could try this:

my $csv = Text::CSV->new;
my $header = $csv->header($if, {detect_bom => 1});
my @column_names = $csv->column_names;
[download]

Comment on Re: trouble with text::csv Download Code

Replies are listed 'Best First'.
Re^2: trouble with text::csv by Tux (Canon) on Dec 05, 2021 at 09:55 UTC
almost correct: the return values for `$csv->header` is a list, not a scalar: `my $csv = Text::CSV_XS->new; # Or Text::CSV my @hdr = $csv->header ($if, { detect_bom => 1 }); # No need for $csv->column_names, as that is implicit in ->header` [download] Personally I'd go for the easiest solution, where all of that is integrated: `use Text::CSV_XS qw( csv ); my $aoh = csv (in => $dbfile, sep => "\t", bom => 1);` [download] If you need the order of the header later, you can keep that too: `my $aoh = csv (in => $dbfile, sep => "\t", bom => 1, kh => \my @hdr);` [download] Enjoy, Have FUN! H.Merijn	[reply] [d/l] [select]
Re^3: trouble with text::csv by tangent (Parson) on Dec 05, 2021 at 14:16 UTC
Thanks for the insights (and for the excellent software). I did dump the `$header` in my example and got a Text::CSV object, so didn't try the list assignment.	[reply] [d/l]