Re: Parsing CSV table

[Tux]

That message indicates that you are using a very old Spreadsheet::Read, as ReadData () accepts (multiple) options since at least 2007 (that is how far my git repo goes back).

$ cat test.csv
foo;bar;dog
1;2;Bull
$ perl -MData::Peek -MSpreadsheet::Read -wle'my $ref = ReadData ("test
+.csv", sep => ";",quote => q{"});DDumper $ref'
[
    {   parser           => 'Text::CSV_XS',
        quote            => '"',
        sepchar          => ';',
        sheet            => {
            'test.csv'       => 1
            },
        sheets           => 1,
        type             => 'csv',
        version          => '0.73'
        },
    {   A1               => 'foo',
        A2               => 1,
        B1               => 'bar',
        B2               => 2,
        C1               => 'dog',
        C2               => 'Bull',
        attr             => [],
        cell             => [
            [],
            [   undef,
                'foo',
                1
                ],
            [   undef,
                'bar',
                2
                ],
            [   undef,
                'dog',
                'Bull'
                ]
            ],
        label            => 'test.csv',
        maxcol           => 3,
        maxrow           => 2
        }
    ]
$