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


in reply to Text::CSV_XS -- Bug or wrong usage?

I thought i would post an example of tilly's Text::xSV, but i am not sure that i am actually escaping the slashes like you want. Oh well, i'll post it anyway in hopes that someone can help correct it if it is indeed incorrect. ;)
use strict; use warnings; use Text::xSV; my $csv = Text::xSV->new( sep => ':', fh => *DATA, filter => sub {($_ = shift) =~ s/\\{2}/\\/g;$_} ); $csv->bind_fields(qw(foo bar baz qux)); while ($csv->get_row()) { print $csv->extract('qux'), "\n"; } __DATA__ 0005:A:A2:\\\\string 04\\\\ 0005:A:A2:\\\string 04\\\\ 0005:A:A2:\\string 04\\\\ 0005:A:A2:\string 04\\\\
When run, this script outputs:

\\string 04\\
\\string 04\\
\string 04\\
\string 04\\

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Replies are listed 'Best First'.
Re: (jeffa) Re: Text::CSV_XS -- Bug or wrong usage?
by choeppner (Pilgrim) on Mar 31, 2003 at 16:12 UTC
    This looks good to me...
    I will give it a try.

    Thanks for the response.

    Charles
    (The quiet Monk)