2008年03月29日

CSVファイル読み込み処理

PerlでCSVファイル読み込み処理

use strict;
use Text::CSV_XS;
use IO::File;

my $csv = Text::CSV_XS->new({binary => 1});
my $fh = IO::File->new("c:\\okinawa.csv", 'r') or die;

my $i=1;
while (not $fh->eof) {
my $row = $csv->getline($fh);

print "Row : $i \n";
my @fields = @$row;
foreach my $field (@fields) {
print "$field\n";
}
$i++;
}



良かったらクリックお願いします→banner_01.gif

posted by 台北猫々 at 07:39| Comment(0) | TrackBack(0) | 技術メモ(Perl)