Re^5: Why Doesn't Text::CSV_XS Print Valid UTF-8 Text When Used With the open Pragma? ("XS")

in reply to Re^4: Why Doesn't Text::CSV_XS Print Valid UTF-8 Text When Used With the open Pragma? ("XS")
in thread Why Doesn't Text::CSV_XS Print Valid UTF-8 Text When Used With the open Pragma?

Probably, Text::CSV::Encoded is what you are looking for.

use Text::CSV::Encoded;
my $csv = Text::CSV::Encoded->new ({binary=>1, encoding=>"utf8"}) or d
+ie $!;
while (my $row = $csv->getline (*ARGV)) {
    $csv->print(\*STDOUT, $row);
}
[download]

This works fine with my perl 5.12.2, with command line ...

perl test.pl test.csv
[download]

In Section Seekers of Perl Wisdom