[Perl] Dividir un arreglo en varios arreglos

[Carlos Villanueva]

On Wed, 2002-07-17 at 11:04, Luis Medrano Zaldivar wrote:
> Lista,
> 
> Tengo una duda, quiero tengo un archivo tipo texto con varias columnas ejemplo
> 
> columna1 columna2 columnat3
> columna1 columna2 columnat3
> columna1 columna2 columnat3
> columna1 columna2 columnat3
> columna1 columna2 columnat3
> columna1 columna2 columnat3
> columna1 columna2 columnat3
> 
> quiero abrir el archivo y ponerlo en un areglo ( @archivo) y cada columna la quiero poner en arreglos diferentes por ejemplo @columnat1,@columna2,
> @columnat3. Mi pregunta como puedo vaciar @archivo en los diferentes arreglos de columnas??...
> 
> Saludos,
> Luis
> 
> 
> ___________________________________________________
> Todito.com, tu centro de comunicacion, informacion,
> comercio y entretenimiento en Internet.
> 

> 
> 
> 
> _______________________________________________
> Perl mailing list
> Perl@tlali.iztacala.unam.mx
> http://tlali.iztacala.unam.mx/mailman/listinfo/perl
>


Corregido   :D

 
open(FILE,'a.txt');
@archivo = <FILE>;
close(FILE);



foreach $single (@archivo){
  $c++;
  ($col1[$c],$col2[$c], $col3[$c]) = split " ", $single;

}

# print 'Archivo: ',@archivo,"\n";
print 'col1: ',@col1,"\n";
print 'col2: ',@col2,"\n";
print 'col3: ',@col3,"\n";