[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
> 
open(FILE,"archivo");
@archivo = <FILE>;
close(FILE);


foreach $single (@archivo){

(@col1, @col2,,@col3) = split " " @single;


}


exit;


Saludos