[perl] Lectura de archivos por lineas

[=?ISO-8859-1?Q?Jos=E9_Antonio_Galicia?=]

On Sun, 20 Dec 1998, Jhon William Calderón P. wrote:

> - Tendo archivo planos ASCII, los cuales contienen lineas de
> información, cada una de ellas contiene registros separados por comas.
> Al final de cada una existe un salto de línea. Si todas las líneas no
> tuvieran la misma longitud, como se podría una sola a la vez para poder
> sacar uno a uno los registros. ?

 Tomado del "man perlfunc"

 open(TXT, "host:/ruta/archivo.txt");
 while (<TXT>) {
   chop;
   next if (m/^\s*$/);
   @campos = split(/,/);
 }


> "dato1",dato2,"dato3",..........

 Suponiendo que estan en $_

 $_ =~ (s/\"//);

 Saludos,
 Toño.

 Ps. Chale, ¿no?

--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : cancelacion perl