Help for this page

Select Code to Download


  1. or download this
    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
  2. or download this
    use Text::CSV_XS qw( csv );
my $aoh = csv (in => $dbfile, sep => "\t", bom => 1);
  3. or download this
    my $aoh = csv (in => $dbfile, sep => "\t", bom => 1, kh => \my @hdr);