Text::CSV_XS and Text::CSV only quote when needed in combine () and print (). That is by design. If you want all strings quoted, there is an option to do so: always_quote, which you explicitely set to 0
my $csv = Text::CSV_XS->new ({ binary => 1, always_quote => 1, eol => "\r\n" });always_quote By default the generated fields are quoted only, if they need to, fo +r example, if they contain the separator. If you set this attribute to a TRUE v +alue, then all fields will be quoted. This is typically easier to handle in ext +ernal applications. (Poor creatures who aren't using Text::CSV_XS. :-)
And I would advise you to use
$csv->print (*STDOUT, [ $fileName,$doc_type, $default_name, $default_description, $report_time ]);instead of using combine () and string ().
edit: code => quote typo fixed
In reply to Re: Text::CSV_XS Issue
by Tux
in thread Text::CSV_XS Issue
by drodinthe559
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |