perl - テキスト プロセッサ (Perl CSV または find/findstr DOS) を使用すると、エクスポートされた TSV ファイルに各文字の間に空白が含まれる

Question

アプリケーション (Internet Explorer を使用する Spotfire Webplayer) からエクスポートされた TSV ファイルがあります。そのファイルを Notepad++ またはメモ帳で表示すると、すべてが正常に見えます (PFA スナップショット)。

しかし、Perl ベースの CSV パーサー (実際には TSV) にファイルを入力するか、単に find/findstr MS-DOS コマンドを使用すると、実際には各文字に空白が表示されます。

(特定の日付に基づいて) いくつかの行を除外しようとしていますが、この問題のため、それを行うことができません。

Answer 1

ファイルは Unicode でエンコードされています。(Notepad++ では、ステータス バーに「UCS-2 Little Endian」と表示されます。) Perl にエンコーディングを伝え、ファイルからの読み取り中にデータをデコードする必要があります。

use Encode qw(decode);
# read from file into $octets...
my $chars = decode('UCS-2LE', $octets, Encode::FB_CROAK);