Perl/ファイルシステム/CSV入出力 (Text-CSV) のバックアップ(No.1)

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
Perl/ファイルシステム/CSV入出力 (Text-CSV) へ行く。
- 1 (2009-08-24 (月) 15:06:24)
- 2 (2009-08-24 (月) 15:07:25)
- 3 (2009-11-14 (土) 14:59:12)
- 4 (2010-11-12 (金) 01:05:37)
- 5 (2010-12-17 (金) 17:17:22)

CSVファイル

SJISのCSV読取り

 use utf8;
 binmode STDOUT, 'encoding(utf8)';
 use Text::CSV_XS;
 
 my $file = $ARGV[0];
 my $csv = Text::CSV_XS->new( { binary => 1 } );
 open my $io, "<:encoding(sjis)", $file or die $!;
 while ( my $row = $csv->getline($io) ) {
    my ( $id, $name ) = @$row;
    print "$id $name\n";
 }
 close $io;