while (my $row = $csv->getline ($fh)) {
# Fix inability of CSV_XS to handle UTF8 strings.
utf8::decode ($_) for @$row;
print $row->[4];
}
####
#!/pro/bin/perl
use strict;
use warnings;
use Text::CSV_XS;
use Encode qw( encode decode );
my $csv = Text::CSV_XS->new ({ binary => 1 });
my $file = "test.csv";
open my $fh, ">:encoding(utf-16)", $file or die "$file: $!";
print $fh join ",",
"\x{0073}e\x{00f1}\x{00f3}\x{0159}",
123,
"\x{00c5}\x{0142}\x{00e9}\x{0161}\x{0171}\x{0146}",
"\r\n";
close $fh;
binmode STDOUT, ":utf8";
open $fh, "<:raw:encoding(utf-16)", $file or die "$file: $!";
while (my $row = $csv->getline ($fh)) {
print join "," => @$row, "\n";
utf8::decode ($_) for @$row;
print join "," => @$row, "\n";
}
##
##
$ od -t x1 test.csv
0000000 fe ff 00 73 00 65 00 f1 00 f3 01 59 00 2c 00 31
0000020 00 32 00 33 00 2c 00 c5 01 42 00 e9 01 61 01 71
0000040 01 46 00 2c 00 0d 00 0a
0000050