Cómo analizar CSV en Perl

CSV ( valores separados por comas ) archivos contienen texto o campos numéricos que están separados por comas. Es un formato de archivo común utilizado 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 de caracteres de doble cotización. El lenguaje Perl le proporciona la "Text :: CSV" del módulo para analizar los datos CSV , 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 mostrar este proceso es el uso de un ejemplo , como una lista de los estados y capitales. Cosas que necesitará
ActiveState Perl versión 5.12 para Win32
Ver Más instrucciones
1

clic en "Inicio " de Windows , seleccione " Microsoft Works " y haga clic en " Microsoft . Obras de hoja de cálculo "
2

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

Estado ( capital)

Alabama

California, Sacramento

Delaware

Florida

Georgia, Atlanta area

Hawaii

Idaho

Kansas

Maine

Ohio, Columbus
3

Introduzca los siguientes datos en las primeras 11 filas de la "B " Página 4

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

clic en "Inicio " de Windows y haga clic en " Bloc de notas " para abrir . editor de texto Bloc de notas
6

Agregue el código siguiente en la ventana abierta :

use strict ;
advertencias uso

;

uso del texto :: CSV_XS ;

archivo # abierto para analizar

my $ archivo = ' c: \\ states.csv ' ;

# define el campo de texto variable
< p> my $ csv = Texto :: CSV_XS - > new ();

abierto ( CSV ​​, "<" , $ file ) or die $ ; !

# descomponer el archivo en registros de texto

while ( ) {

next if ( $ 1 == . ) ;

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

mis @ columnas = $ csv -> fields ();

# mostrarse cada registro en una línea

print Estado independiente " ( capital) : $ columnas [ 0 ] \\ n \\ Trank :

$ columnas [ 1 ] \\ r \\ n ";

} else {

mi $ err = $ csv- > ; error_input ;

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

}

}

cerca CSV ;
7

Haga clic en " archivo" y luego haga clic en " Guardar". Escriba " parse.pl " en el cuadro "Nombre de archivo " y haga clic en el botón "Guardar " .
8

clic en "Inicio " de Windows y 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

Escriba " cd \\ " y pulse la tecla "Enter" .

10

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