エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
[Perl] Shift-JIS の固定長テキストデータをutf8 変換して処理するときのちょっとした注意点
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
[Perl] Shift-JIS の固定長テキストデータをutf8 変換して処理するときのちょっとした注意点
Perl でShift-JIS の固定長テキストをバラしてutf8 変換してからデータベースに取り込む処理を書いたの... Perl でShift-JIS の固定長テキストをバラしてutf8 変換してからデータベースに取り込む処理を書いたのですが、すんごく初歩的なところでミスしたので自戒の意味も込めてメモ。 修正前のコード どこがマズかったかわかりますでしょうか? use Encode; # Shift-JIS の固定長テキスト my_shift_jis.csv を開く my $path = "my_shift_jis.csv"; open my $file, '<', $path or die; # ファイルの内容を1行ずつ取り出す my @lines = (); while ( my $line = readline $file ) { # utf8 に変換してから $line = encode('utf8', decode('MS932', $line)); # 配列に放り込む push @lines,