Text::CSV は日本語入ってるとダメなんだ、、、orzText::CSV で parse したらエラー出まくりだったので、エラーになってる CSVのファイルをのぞくと日本語の行がエラーになっていた、、、orz どうやら、日本語入っているとダメみたい、、っで、検索してみたら「勝手に添削 - PerlによるCSVファイルの高速集計 2 - 404 Blog Not Found」で、Text::CSV_XS で、{binary=>1} のオプションを付けると、どうやら日本語混じりでも OK らしいので、さっそくインストールしてコードを修正。モジュール名の変更だけで済んだ。 use strict; use warnings; use Text::CSV_XS; $| = 1; my $file = './hoge.csv'; my $csv = Text::CSV_XS->new({binary=>1}); open my $fh, '<', $fi
