One first step would be to convert from UTF-16LE into a Perl string of characters (which would mean UTF-8 since Latin-1 may not support all of the characters you need). One way to do that would be the Encode module. Another way would be to use an "Input Layer" (see perlunicode for information on converting character encodings using a Layer and lots of other stuff about Unicode in Perl).
A third way to do that would be something you likely won't find documentation on, so I'll roll the code for you:
binmode( CSV ); sysread( CSV, $bom, 2 ); $/= pack "v", unpack "c", "\n"; while( <CSV> ) { $_= pack "U*", unpack "v*", $_; # Parse the data that is now in UTF-8 }
But you should probably use a real Unicode-conversion solution like one of the prior two (especially because each new version of Perl changes things related to Unicode, usually changing something so that it now sometimes silently does something different than it used to).
A different first step would be to solve everything in terms of Perl byte strings. That is probably quite straight-forward. Just tell Text::CSV to use "binary" mode and give it the separators and such that you already figured out as Perl strings of bytes (it will likely use Text::CSV_XS under the covers).
- tye
In reply to Re: Parsing UTF-16LE CSV Records Using Text::CSV* (TAMWTDI)
by tye
in thread Parsing UTF-16LE CSV Records Using Text::CSV*
by Jim
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |