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++;
}
良かったらクリックお願いします→
