remove hash from first column name master
authorDobrica Pavlinusic <dpavlin@rot13.org>
Sun, 6 Oct 2019 10:02:37 +0000 (12:02 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Sun, 6 Oct 2019 10:02:37 +0000 (12:02 +0200)
lib/MojoFacets/Import/CSV.pm

index 10e8343..e8fa196 100644 (file)
@@ -60,6 +60,7 @@ sub data {
        while ( my $row = $csv->getline( $fh ) ) {
                if ( ! @header ) {
                        @header = @$row;
+                       $header[0] =~ s/^#// if $path =~ m/\.tsv/i; # remove hash from 1st column
                        next;
                }
                my $item;