Perlゼミ

  1. Perl
  2. モジュール
  3. Text::CSV::Encoded

Text::CSV::Encoded - 日本語を含んだCSVファイルを扱う

日本語を含んだCSVファイルを扱うにはText::CSV::Encodedモジュールを使用します。以下にCSVを処理するサンプルを示します。スクリプトはUTF-8で保存します。

use strict;
use warnings;
use utf8;

use Text::CSV::Encoded;

my $file = shift;

my $encoding = 'UTF-8';
my $csv = Text::CSV::Encoded->new({
  encoding_in => $encoding,
  encoding_out => $encoding
});

open my $fh, "<", $file
  or die "Can't open $file: $!";

while (my $fields = $csv->getline($fh)) {

  # データの編集(ここでは最初のフィールドに編集という文字をくっつける)
  $fields->[0] .= '編集';
  
  # フィールドのデータを出力
  $csv->print(*STDOUT, $fields);
  
  # 改行を出力
  print "\n";
}

while文を使って、CSVファイルの行を1行づつ読み込んでいます。

Perlの書籍
  • 業務に役立つPerl

    ログ解析など日本語を含むテキスト処理の実践!
    この私、Perlゼミの作者が執筆しています。
    ご購入、口コミ歓迎。
  • Perlの書籍 »
自己紹介
木本裕紀

「こっ、こしゃくな。
このPerオタクめ~!」

Twitter
フォロー、いいね、リツート、コメント歓迎

Youtube

チャンネル登録、いいね、コメント歓迎

kimoto.yuki@gmail.com
応援メッセージ、質問、間違い報告歓迎

木本システム株式会社
ご紹介キャンペーン実施中です。契約金額の10%をご紹介料としてお支払い。

(例)30万円のシステム開発委託契約が、1年続いたら、36万円がもらえる!!!