From 7de4f603d5133635a63fd6bdb1fc3ed66d01de81 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sun, 11 Jul 2010 23:44:47 +0200 Subject: [PATCH] default to , delimited csv Switch to ; delimited only if we don't have ; in first line (which is some cruft in my file) This allowes me to read in "normal" csv files with ease --- lib/MojoFacets/Import/CSV.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lib/MojoFacets/Import/CSV.pm b/lib/MojoFacets/Import/CSV.pm index 5a83884..d3fbb3b 100644 --- a/lib/MojoFacets/Import/CSV.pm +++ b/lib/MojoFacets/Import/CSV.pm @@ -23,9 +23,13 @@ sub data { my @lines = split(/\r?\n/, $data); $data = { items => [] }; - my $delimiter = qr/;/; + my $delimiter = qr/,/; + + if ( $lines[0] !~ /;/ && $lines[1] =~ /;/ ) { + shift @lines; # FIXME ship non-header line + $delimiter = qr/;/; + } - shift @lines; # FIXME ship non-header line my $header_line = shift @lines; my @header = split( $delimiter, $header_line ); -- 2.20.1