A ver, para hacer lo que quieres usamos estas líneas de código:
Using perl Syntax Highlighting
open(HOLA, "<$fele"); # abrimos el archivo en modo solo lectura
my @lineas = <HOLA>; # cargamos las líneas en un array
close(HOLA);
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Ahora tenés un elemento del
array por cada línea que tenías en el archivo. Para imprimirlo podías hacer:
Using perl Syntax Highlighting
print join("\n",@lineas); # imprime las líneas separadas por un salto de línea
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Eso sería lo mismo que hacer:
Using perl Syntax Highlighting
foreach my $linea (@lineas){
print $linea . "\n";
}
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Espero que te sirva
Saludos
