in reply to problems parsing CSV

Looks like the GIGO principle at work 
#!/usr/bin/perl --

use strict;
use warnings;

use Text::CSV;
use Data::Dump::Streamer;

Main(@ARGV);
exit(0);

sub Main {
    my $csv = Text::CSV->new;
    warn my $str = q!stuff,"more","foo (1994 "bar" only)",1234,1988,3.
+0,""!;
    $csv->parse($str) and Dump( [ $csv->fields ] );
    $csv->combine(
        qw' stuff more',
        'foo (1994 "bar" only)',
        1234, 1988, 3.0, ""
    ) and warn $csv->string;

}
__END__

stuff,"more","foo (1994 "bar" only)",1234,1988,3.0,"" at temp.pl line 
+14.
stuff,more,"foo (1994 ""bar"" only)",1234,1988,3, at temp.pl line 16.

[download]

Replies are listed 'Best First'.
Re^2: problems parsing CSV
by Anonymous Monk on Oct 09, 2010 at 14:22 UTC
    allow_loose_quotes / allow_loose_escapes seems to fix it 
    #!/usr/bin/perl --

use strict;
use warnings;

use Text::CSV;
use Data::Dump::Streamer;

Main(@ARGV);
exit(0);

sub Main {
#~     my $csv = Text::CSV->new ( { auto_diag => 1, } );
    my $csv = Text::CSV->new ( { auto_diag => 1, allow_loose_quotes  =
+> 1, allow_loose_escapes => 1,} );
    warn "012345678901234567890123456789\n",
    my $str = q!stuff,"more","foo (1994 "bar" only)",1234,1988,3.0,""!
+;
    $csv->parse($str) and Dump([ $csv->fields ]);
    $csv->combine(qw' stuff more', 'foo (1994 "bar" only)', 1234, 1988
+,3.0,"") and warn $csv->string;

}
__END__

012345678901234567890123456789
stuff,"more","foo (1994 "bar" only)",1234,1988,3.0,"" at temp.pl line 
+15.
$ARRAY1 = [
            'stuff',
            'more',
            'foo (1994 "bar" only)',
            1234,
            1988,
            '3.0',
            ''
          ];
stuff,more,"foo (1994 ""bar"" only)",1234,1988,3, at temp.pl line 18.

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom