Yo hago esto:
Using perl Syntax Highlighting
- my $FichR = $pathDestino."\\".$dsn;
- open(FICHERO, '<:encoding(UTF-8)', $FichR) or die "No se pudo abrir el $pathDestino./.$dsn";
- open(SALIDA, ">$pathDestino/$dsn");
- while ($linea1 = <FICHERO>){
- $linea1 =~ s/VULKAN/VULKANO/g;
- print SALIDA $linea1;
- }
- close (FICHERO);
- close (SALIDA);
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
¿Alguna ayuda?
Gracias.