http://www.perlmonks.org?node_id=846499


in reply to CSV tab-delimited not space-delimited

From the DBD::CSV Synopsis:

csv_*

    All other attributes that start with csv_ and are not described ab
+ove will be passed to Text::CSV_XS (without the csv_ prefix). these e
+xtra options are most likely to be only useful for reading (select) h
+andles. Examples:

      $dbh->{csv_allow_whitespace}    = 1;
      $dbh->{csv_allow_loose_quotes}  = 1;
      $dbh->{csv_allow_loose_escapes} = 1;

    See the Text::CSV_XS documentation for the full list and the docum
+entation.

[download]

If $dbh->{csv_allow_whitespace}    = 1; doesn't address your problem, you have something very odd going on.

Does the "scrambling" occur on input or retrieval?
Do you get any errors or warnings?
Do you use RaiseError and what does it tell you?
Are you sure your data has spaces (0x20) and not tabs?

Replies are listed 'Best First'.
Re^2: CSV tab-delimited not space-delimited
by mellon85 (Monk) on Jun 25, 2010 at 10:06 UTC
    If $dbh->{csv_allow_whitespace} = 1; doesn't address your problem, you have something very odd going on.
    Then somethings odd is going on, adding the options right doesn't solve the problem.

    The scrambling occours on retrival from a SELECT. No errors or warnings (with RaiseError). And now I double checked, but the characters are spaces and tabs.

    Just to be precise the versions are
    perl5.10.1
    DBD::CSV0.2600
[reply]

      What is your version of Text::CSV_XS? A problem as you describe has been fixed in version 0.63:

      2009-03-20 0.63 - H.Merijn Brand   <h.m.brand@xs4all.nl>

    * Fixed allow_whitespace with sep_char = TAB (RT#44402)

      [download]

      Current DBD::CSV is 0.29, and Text::CSV_XS is 0.73


      Enjoy, Have FUN! H.Merijn
[reply]
[d/l]
        I'm using Text::CSV_XS version 0.70

        I'll upgrade to the latest and report the result

        *update*

        Upgrading the the latest version of DBD::CSV and Text::CSV_XS didn't solved the problem

[reply]

In Section Seekers of Perl Wisdom