Using perl Syntax Highlighting
- $archivo = <STDIN>; # se introduce el nombre del archivo a sustituir.
- $dic = "diccionario.dat"; # diccionario normal->latex.
- open(ARCHIVO,"<$archivo"); # se abre el archivo a traducir.
- $count++ while <ARCHIVO>; # contador de las líneas del archivo.
- open(ARCHIVO,"<$archivo");
- @archivo=<ARCHIVO>; #se le asocia a la el array al archivo.
- open(DIC,"$dic"); #se abre diccionario.
- #print "\n Este es el archivo original \n\n @archivo\n Aquí termina el archivo original\n\n";
- while ($r=<DIC>){ #ciclo para separar las variables del diccionario.
- ($b,$s) = split (',' ,$r);
- chop($s);
- foreach $tradu (@archivo){
- $tradu =~ s/$b/$s/g;
- print $tradu;
- }
- close (ARCHIVO);
- }
- close (DIC);
- print "\nEl archivo tiene $count líneas\n";
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Las preguntas que tengo son las siguientes: al correr el programa me imprime 3 veces el ciclo, y no sé por qué; ya le busqué diversas alternativas y no encontré nada. Por otro lado quisiera saber cómo hacerle para poder hacer que el programa me diga cuántas sustituciones hizo porque solo me dice que realiza una sustitución. De antemano, mil gracias.