Thanks for your reply and the pointer. Since I know I don't need
quoting I change the code. It still doesn't work, but in a different way:
nigel:~ nigel$ cat foo
#!/usr/bin/perl -w
use Text::xSV::Slurp;
my @l = (
'name!comments',
'n1!c1;',
'n2!c2',
'n3!c3 ""',
'n4!c4',
);
my $t = xsv_slurp(
shape => 'aoh',
text_csv => { sep_char => '!' },
string => join("\n", @l),
text_csv => { quote_char => undef },
);
my @l2 = @{$t};
foreach (@l2) {
print "$_->{name}, $_->{comments}\n";
}
nigel:~ nigel$ ./foo
Use of uninitialized value in concatenation (.) or string at ./foo line 24.
Use of uninitialized value in concatenation (.) or string at ./foo line 24.
,
Use of uninitialized value in concatenation (.) or string at ./foo line 24.
Use of uninitialized value in concatenation (.) or string at ./foo line 24.
,
Use of uninitialized value in concatenation (.) or string at ./foo line 24.
Use of uninitialized value in concatenation (.) or string at ./foo line 24.
,
Use of uninitialized value in concatenation (.) or string at ./foo line 24.
Use of uninitialized value in concatenation (.) or string at ./foo line 24.
,
nigel:~ nigel$