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