Cómo analizar CSV en Perl

(Valores separados por comas) CSV archivos contienen campos de texto o numéricos que están separados por comas. Es un formato de archivo utilizado habitualmente para el intercambio de datos entre los programas de hojas de cálculo, como Microsoft Excel o Microsoft Works y aplicaciones de usuario. Los valores de texto en archivos CSV están rodeados por comillas dobles. El lenguaje Perl le proporciona el módulo "Texto :: CSV" para analizar los datos CSV, lo que le da la capacidad de realizar el desglose correcto de un archivo CSV en su programa Perl, si los campos de texto en el archivo incluyen comas. La forma más fácil de demostrar este proceso es utilizar un ejemplo, como una lista de estados y capitales.

Instrucciones

1 Haga clic en "Inicio" de Windows, seleccione "Microsoft Works" y haga clic en "cálculo de Microsoft Works."

2 Introduzca los datos siguientes en las primeras 11 filas de la columna "A":

Capital del estado)

Alabama

California, Sacramento

Delaware

Florida

Georgia, Atlanta

Hawai

Idaho

Kansas

Maine

Ohio, Columbus

3 Introduzca los datos siguientes en las primeras 11 filas de la columna "B":

Rango

23

2

36

9

18

42

46

38

29

15

4 Haga clic en "Archivo" y haga clic en "Guardar como". Enter "states.csv" en el cuadro "Nombre de archivo". Elija la opción "Texto y comas (.csv)" en el cuadro "Guardar como tipo" y haga clic en el botón "Guardar".

5 Haga clic en "Inicio" de Windows y luego haga clic en "Bloc de notas" para abrir el editor de texto Bloc de notas.

6 Agregue el código siguiente en la ventana abierta:

use strict;

use warnings;

utilizar Text :: CSV_XS; archivo abierto para el análisis

my $file = 'c:\states.csv'; definir la variable de campo de texto

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

abierta (CSV, "& lt;", $ archivo) o morir $ !; descomponer el archivo en registros de texto

while (<CSV>) {

después si ($ 1 ==.);

if ($ csv-> parse ($ _)) {

mis @columns = $ csv-> campos (); visualizar cada registro en una línea separada

print "State (Capital): $columns[0]\n\tRank:

$ columnas [1] \ r \ n ";

} else {

mi $ err = $ csv-> error_input;

print "No se ha podido analizar la línea: $ err";

}

}

cerrar CSV;

7 Haga clic en "Archivo" y haga clic en "Guardar". Enter "parse.pl" en el cuadro "Nombre de archivo" y haga clic en el botón "Guardar".

8 Haga clic en "Inicio" de Windows y luego haga clic en "Ejecutar". Escriba "cmd" en el cuadro "Abrir" y haga clic en "Aceptar" para abrir la ventana de línea de comandos.

9 El tipo de "cd \" y pulsar la tecla "Enter".

10 El tipo de "parse.pl Perl" en el indicador. Pulse la tecla "Enter" para ejecutar el script "analizar" Perl para analizar el archivo CSV "estados" y mostrar sus campos de texto en la pantalla.