__PACKAGE__->attr('full_path');
+sub ext { '.csv' };
+
sub data {
my $self = shift;
my $path = $self->full_path;
my $encoding = 'utf-8';
- if ( $path =~ m/\.(\w+).csv/i ) {
+ if ( $path =~ m/\.([\w\-]+).csv/i ) {
$encoding = $1;
}
$sep_char = shift @sep_by_usage;
}
+ while ( $sep_char =~ m/^\"$/ ) {
+ warn "## skip quote separator ",dump($sep_char);
+ $sep_char = shift @sep_by_usage;
+ }
+
+ if ( $sep_char !~ m/,/ && $possible_delimiters->{','} && $path =~ m/\.csv/i ) {
+ $sep_char = ',';
+ warn "## csv file detected so prefer , as separator";
+ }
+
warn "sep_char = [$sep_char] for $path\n";
my $csv = Text::CSV->new ( { binary => 1, eol => $/, sep_char => $sep_char } )