Cómo convertir texto a CSV en Perl

Perl comenzó como un lenguaje de programación basado en UNIX desarrollado por Larry Wall en 1987. Desde entonces, ha sido portado a una multitud de plataformas de programación. Perl fue diseñado para manejar el procesamiento de archivos de texto y es una excelente opción cuando la conversión de archivos de texto en formato de valores separados por comas (CSV). CSV se utiliza principalmente para importar en hojas de cálculo Excel. Excel puede leer archivos y plazas cada valor separado por comas en una celda única en la hoja de cálculo que permite al usuario procesar aún más la información como mejor les parezca CSV.

Instrucciones

1 Abrir los archivos que desea procesar, el archivo de entrada será de texto y el archivo de salida en formato CSV. La sintaxis de la orden de apertura es:

Entrada abierta, "<FILENAME";

Tenga en cuenta que el "<" indica que el archivo se abre para acceso de lectura. Para abrir un archivo para acceso de escritura precede al nombre de archivo con un ">".

2 Leer una línea de texto del archivo de entrada. El comando para leer una línea tiene este aspecto:

$ Line = <INPUT>;

Perl leerá caracteres del archivo hasta que se lea una secuencia de retorno de carro / línea.

3 Analizar la línea de lectura en campos únicos. Utilice el comando de división de Perl para analizar la línea. El comando de división permite al programador especificar el carácter que separa los campos, este separador de campo puede ser un espacio o de cualquier otro carácter. Aquí el separador de campo es el símbolo de canalización ( "|"):

split (/ \ | /, $ line);

Si no se especifican las variables únicas, a continuación, se necesitan los lugares comando Dividir los campos de variables predeterminadas que comienzan con $ 1, e incrementando al embargo muchas variables.

4 Dar formato a la línea de salida como valores separados por comas utilizando el comando sprintf. Aquí, Perl va a crear una línea de diez campos como valores separados por comas y añadir un retorno de carro al final:

$ Detalle = sprintf ( "% s,% s,% s,% s,% s,% s,% s,% s,% s,% s \ n", $ 1, $ 2, $ 3, $ 4, $ 5, $ 6 , $ 7, $ 8, $ 9, $ 10);

5 Escribe la línea de formato para el archivo de salida abierta en el principio del archivo de secuencia de comandos. Utilice el comando de impresión Perl para escribir en el fichero, el comando es el siguiente:

Resultado de Impresión "$ detalle";

6 Cierre todos los archivos antes de terminar el guión de Perl. Esto no es necesario, sin embargo, se considera buena práctica de programación. El comando de Perl se utiliza para cerrar un archivo es:

Entrada de cierre;