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]

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

Replies are listed 'Best First'.
Re^6: Why Doesn't Text::CSV_XS Print Valid UTF-8 Text When Used With the open Pragma? ("XS") by Tux (Canon) on Oct 02, 2011 at 15:52 UTC
Text::CSV::Encoded is indeed a nice extension to the Text::CSV parser family, but it does solve the underlying problem as stated in the original quest. `use encoding ...` is (or now was) broken in combination with XS code. Most bugs that stem from that are workaround-able by using other encode/decode approaches, but it is (or was) still a bug. Enjoy, Have FUN! H.Merijn	[reply] [d/l]

In Section Seekers of Perl Wisdom