Cómo leer archivos CSV en Perl

CSV (valores separados por comas) es un formato de archivo especial que se utiliza para transferir datos de hojas de cálculo de una aplicación a otra. Los datos en formato CSV se almacenan en un archivo de texto básico con los valores de cada fila separados por comas y cada fila, separados por espacios en blanco. Por lo general, pero no siempre, la primera línea se utiliza para dar el nombre de columnas. Por ejemplo, el siguiente texto podría ser parte de una hoja de cálculo CSV para los libros:

"Título", "Autor"
"Romeo y Julieta", "William Shakespeare"
"Hamlet", "William Shakespeare"

Leer archivos CSV en el lenguaje de programación Perl usando el texto de la biblioteca :: CSV.

Instrucciones

1 Crear un nuevo archivo de texto en un editor de texto. Cualquier editor de texto va a hacer, incluyendo el Bloc de notas de Windows, pero el archivo debe terminar con la ".pl" extensión de archivo y no ".txt" o ".rtf".

2 Pegar la firma siguiente a la primera línea del archivo de texto. Aunque no es necesario, ayuda si usted distribuye su trabajo a los demás o se olvida más tarde idioma el guión está utilizando.

! / usr / bin / perl

3 Agregue la línea siguiente al archivo de texto para importar el CSV Perl biblioteca de análisis:

utilizar Text :: CSV;

4 Analizar e imprimir el contenido de un archivo CSV pegando estas líneas:

mi $ entrada = 'file.csv';

mi $ parser = Texto :: CSV-> new ();

abierta (CSV, "<", $ entrada);

while (<CSV>) {

if ($parser->parse($_)) {
my @columns = $parser->fields();
print "@columns\n";
}

}
cerrar CSV;

Reemplazar 'file.csv' con el nombre del archivo CSV para analizar.

Consejos y advertencias

• Instalar el Texto :: biblioteca CSV desde el directorio CPAN automáticamente usando el comando "CPAN :: Texto CSV".
• Puede ejecutar el comando mediante la ejecución de "perl csvparse.pl" en una terminal.