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


in reply to CSV_XS and UTF8 strings

To disable quotes, I use quote_char => undef in the constructor. Also, binmode after open helps.
#!/usr/bin/perl use strict; use warnings; use Text::CSV_XS; my $file = 'sample.csv'; my @rows; my $csv = Text::CSV_XS->new( { quote_space => 0, quote_char => undef, binary => 1, auto_diag => 1, } ) or die "Cannot use CSV: " . Text::CSV_XS->error_diag(); open my $fh, '<:encoding(UTF-8)', $file or die "$!"; binmode $fh, ':encoding(UTF-8)'; while ( my $row = $csv->getline($fh) ) { push @rows, $row; } $csv->eof or $csv->error_diag(); close $fh; $csv->eof; open $fh, '>:encoding(UTF-8)', 'new.csv' or die "$!"; binmode $fh, ":encoding(UTF-8)"; $csv->print( $fh, $_ ) for @rows; close $fh or die "$!"; Output: hi,bye,test is great,testwhat is your name,is,&#12371;&#12428;&#12288; +&#35430;&#39443;&#12288;this is a test,test