Perl/Text::CSV

Módulo	Text::CSV
Versión	1.17
Uso	Manipulación de datos
Propósito	Lee y escribe archivos CSV

Referencia rápida

use Text::CSV;

my %options = (
    binary => 1,
);
my $parser = Text::CSV->new( \%options );
my @record = ();

# Carga de líneas de texto y extracción de columnas
while (my $linea = <STDIN>) {
   chomp $linea;

   if ($csv->parse( $linea )) {
       push( @registro, $csv->fields() );
   }
   else {
     warn $csv->error_diag();
   }
}