Parse a csv file using perl

While parsing and converting some CSV files to ldif’s I needed a perl script, the Test::CSV module is helpful :

!/usr/bin/perl

use strict;
use warnings;
use Text::CSV;

my $file = ‘prospects.csv’;

my $csv = Text::CSV->new();

open (CSV, “) {
if ($csv->parse($_)) {
my @columns = $csv->fields();
print “@columns\n”;
} else {
my $err = $csv->error_input;
print “Failed to parse line: $err”;
}
}
close CSV;