Bad Text::CSV_XS parameter

pcouderc has asked for the wisdom of the Perl Monks concerning the following question:

What do I do wrong ?

...
open my $fh, "<:encoding(utf8)", "ddd.CSV" ;
my $csvfile=Text::CSV_XS->new ();
until (eof $fh)
{
    if($csvfile->parse(<$fh>))
    {
            my @resu=$csvfile->fields();
            print STDERR   $resu[0],$resu[1];
    }
    else
    {
            my $err = $csvfile->error_diag();
            print STDERR  "Erreur  :  $err\n";
    }

}
[download]

ddd.CSV :

"01012019","1816"
[download]

my unexpected resulted (unexpected from me...) :

Erreur  :  EIF - Loose unescaped quote
[download]

Thank you, o confinated monks !

Comment on Bad Text::CSV_XS parameter Select or Download Code

Replies are listed 'Best First'.
Re: Bad Text::CSV_XS parameter by haukex (Archbishop) on Apr 24, 2020 at 13:15 UTC
It sounds like your input file isn't what you think it is or what you showed here; try `hexdump -C ddd.CSV` or `od -tx1c ddd.CSV`. Also, don't use the `->parse` method to read a file, use `$csv->getline($fh)`.	[reply] [d/l] [select]
Re^2: Bad Text::CSV_XS parameter by pcouderc (Monk) on Apr 24, 2020 at 13:27 UTC
My file is: `hexdump -C ddd.CSV 00000000 ef bb bf 22 30 31 30 31 32 30 31 39 22 2c 22 31 \|..."01012 +019","1\| 00000010 38 31 36 22 0a 0a 0a \|816"...\| 00000017` [download]	[reply] [d/l]
Re^3: Bad Text::CSV_XS parameter by hippo (Bishop) on Apr 24, 2020 at 13:56 UTC
If you have a BOM you have to deal with it: BOM	[reply]
Re^4: Bad Text::CSV_XS parameter by pcouderc (Monk) on Apr 24, 2020 at 15:09 UTC
Re^5:Bad Text::CSV_XS parameter by Tux (Canon) on Apr 24, 2020 at 20:52 UTC
Some notes below your chosen depth have not been shown here
Re: Bad Text::CSV_XS parameter by afoken (Chancellor) on Apr 24, 2020 at 18:28 UTC
See also DBD::CSV - how to I coax it to read BOM prefixed files? Alexander -- Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)	[reply]
Re: Bad Text::CSV_XS parameter by hippo (Bishop) on Apr 24, 2020 at 12:49 UTC
I am unable to reproduce your findings with version 1.17 of Text::CSV_XS: `$ cat ddd.CSV "01012019","1816" $ cat 11116012.pl use strict; use warnings; use Text::CSV_XS; open my $fh, "<:encoding(utf8)", "ddd.CSV" ; my $csvfile=Text::CSV_XS->new (); until (eof $fh) { if($csvfile->parse(<$fh>)) { my @resu=$csvfile->fields(); print STDERR $resu[0],$resu[1]; } else { my $err = $csvfile->error_diag(); print STDERR "Erreur : $err\n"; } } $ perl 11116012.pl 010120191816$` [download]	[reply] [d/l]
Re^2: Bad Text::CSV_XS parameter by pcouderc (Monk) on Apr 24, 2020 at 13:04 UTC
how strange !!!!!! I am using debian, it is : `$VERSION = "1.38";` [download]	[reply] [d/l]
Re: Bad Text::CSV_XS parameter by marto (Cardinal) on Apr 24, 2020 at 12:59 UTC
As posted I can't replicate your problem, only if I mess around with the input file. `"01012019",\"1816"` [download] Is what you posted actually recreating the error for you? allow_loose_escapes.	[reply] [d/l]
Re^2: Bad Text::CSV_XS parameter by pcouderc (Monk) on Apr 24, 2020 at 13:07 UTC
With allow_loose_escapes => 1, I get the same error message...	[reply]


Syntactic Confectionery Delight
	PerlMonks