2006-02-10 Text::CSV_PP Perl my $io = new IO::File $csv_file, "r" or die "Error : $csv_file file not found. $!";my $csv = Text::CSV_PP->new({binary => 1});while ( my $columns = $csv->getline($io) ) {}いちいちIO::Fileとかめんどいッス。 Text::CSVとかText::CSV_XSにあわせてるからなのでしょう。