- バックアップ一覧
- 差分 を表示
- 現在との差分 を表示
- ソース を表示
- 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ファイル
CSV読取り
use utf8;
binmode STDOUT, 'encoding(utf8)';
use Text::CSV_XS;
my $file = $ARGV[0];
my $csv = Text::CSV_XS->new( { binary => 1, eol => "\015\012" } );
open my $io, "<:encoding(sjis)", $file or die $!;
while ( my $row = $csv->getline($io) ) {
my ( $id, $name ) = @$row;
print "$id $name\n";
}
close $io;
$csv->eof or die $csv->error_diag();
- CSVファイルは文字コードSJIS、改行コードCRLFとし、画面端末はUTF8とする。
参考
