From b3637d471c17dfa513a774a093adf5fcc51d8b35 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sat, 16 Oct 2010 14:58:32 +0200 Subject: [PATCH] chomp whitespaces before and after value --- lib/MojoFacets/Import/CSV.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/MojoFacets/Import/CSV.pm b/lib/MojoFacets/Import/CSV.pm index de661c5..fc9b1eb 100644 --- a/lib/MojoFacets/Import/CSV.pm +++ b/lib/MojoFacets/Import/CSV.pm @@ -39,7 +39,7 @@ sub data { my $header_line = shift @lines; - my @header = map { s/^"(.+)"$/$1/; $_ } split( $delimiter, $header_line ); + my @header = map { s/^"(.+)"$/$1/; s/^\s*(.+?)\s*$/$1/; $_ } split( $delimiter, $header_line ); warn "# header ",dump( @header ); while ( my $line = shift @lines ) { @@ -49,6 +49,7 @@ sub data { foreach my $i ( 0 .. $#v ) { my $v = $v[$i]; $v =~ s/^"(.+)"$/$1/; + $v =~ s/^\s*(.+?)\s*$/$1/; $item->{ $header[$i] || "f_$i" } = [ $v ]; } push @{ $data->{items} }, $item; -- 2.20.1