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++;
}

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