Hola a todos,
Estoy manipulando varios ficheros de texto, todos tienen el mismo formato,
Tengo a cada fichero separado en columnas mediante el siguiente código:
my @file = <FILE>;
for ($i=0; $i<scalar(@file); $i++){
my @colum = split (/\t/,$file);
print $colum."\n";
}
close FILE;
Necesito imprimir todas las columnas del fichero, son aproximadamente 250, esto significaría escribir demasiado código(print $colum\t $colum\t$colum\t.....$colum).
¿Alguien conoce alguna manera de que con algunas cuantas ordenes pueda imprimir todas las columnas? ...