Foro - Perl en Español

por **charmin** » 2010-02-03 18:58 @831

Hola, cómo están. Espero que bien. Bueno, aquí está mi programa el cual es algo así para traducir algo de Español a Latex:

Sintáxis: [ Descargar ] [ Ocultar ]

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.

#!/usr/bin/perl
 
$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
while (<ARCHIVO>) {
    $count++ ;                  # contador de las líneas del archivo
    push @archivo, $_;          # se guarda en el array del archivo
}
close(ARCHIVO);
 
#print "\n Este es el archivo original \n\n  @archivo\n Aquí termina el archivo original\n\n";
 
$cambios = 0;
open(DIC,"$dic");               # se abre diccionario
while ($r = <DIC>) {            # ciclo para separar las variables del diccionario
    ($b,$s) = split (',' ,$r);
    chomp($s);
 
    foreach $tradu (@archivo) {
        $cambios += $tradu =~ s/$b/$s/g;    # hacemos la traducción y llevamos la cuenta
    }
}
close (DIC);
 
print "@archivo\n";             # imprime el archivo traducido
 
print "\nEl archivo tiene $count líneas\n";
 
print "Hubo $cambios cambios\n";
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **charmin** » 2010-02-04 01:50 @118

Muchas gracias. Creo que ya entendí cuál era mi problema: estaba en donde cerraba el archivo, para el ciclo while(); y lo del contador creo que tenía la idea pero la estructura no me estaba saliendo. Muchas gracias, ahora sí podré escribir en Latex en español y traducirlo al lenguaje normal de éste. Hasta luego y que tengas un excelente día.

por **charmin** » 2010-02-04 13:20 @597

Hola de nuevo, aquí con un problema. ¿Cómo puedo hacer para que en lugar de que me de un conteo general me de uno de línea a línea y que me lo guarde en otro archivo? Pensé que ya estaba listo pero pues no era como pensé.

Sintáxis: [ Descargar ] [ Ocultar ]

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.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2010-02-04 18:28 @811

Pero... ¿por qué quieres leer el fichero dos veces? Con una, es más que suficiente... fíjate en el código que te puse para que veas que hago las dos cosas (contar las líneas y guardarlas en el arreglo) a la vez.

Si quieres guardar el resultado en otro fichero, antes deberás abrirlo, ¿no?

Aquí hay un problema de base... según el código, estás leyendo un diccionario, y por cada palabra, recorres todo el primer fichero, realizando cambios. Así es complicado llevar un contador de los cambios que se realizan por línea (bueno, no es cierto: sí que es fácil llevar esa cuenta).

Yo lo haría al revés:
* Leer todo el diccionario a un arreglo
* Hacer un bucle por todas las filas del primer fichero
* Por cada línea, aplicar los cambios por cada palabra del diccionario. Y sumar esos cambios y presentarlos.

Algo así (no probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
$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
while (<ARCHIVO>) {
    $count++ ;                  # contador de las líneas del archivo
    push @archivo, $_;          # se guarda en el array del archivo
}
close(ARCHIVO);
 
print "\nEl archivo tiene $count líneas\n";
 
open(DIC,"$dic");               # se abre diccionario
while (<DIC>) {                 # ciclo para separar las variables del diccionario
    chomp;
    ($b,$s) = split q[,];
    $dicc{$b} = $s;             # lo guardamos en un hash
}
close (DIC);
 
 
$n_linea = 1;                   # número de línea
for $linea (@archivo) {
 
    $cambios = 0;
 
    for $b (keys %dicc) {       # para todas las claves del diccionario
        # hacemos la traducción y llevamos la cuenta
        $cambios += $linea =~ s/$b/$dicc{$b}/g;
    }
 
    print "Línea $n_linea con $cambios cambios\n";
 
    $n_linea++;
}
 
undef $";                       # no queremos separación entre líneas
print "@archivo";               # imprime el archivo traducido
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

No lo he probado porque no sé qué aspecto tienen los dos ficheros de entrada, así que no sé si funcionará.

por **charmin** » 2010-02-04 18:39 @819

Hola. Déjame probarlo.

Lo que pasa es que pensé que se tenía que hacer el contador total, pero se requiere que sea un contador línea por línea del archivo a traducir.

El diccionario es no más como mi base de datos para las traducciones. pero veamos a ver qué tal.

Foro - Perl en Español

Traductor de Español a Latex

Traductor de Español a Latex

Publicidad

Re: Traductor de Español a Latex

Re: Traductor de Español a Latex

Re: Traductor de Español a Latex

Re: Traductor de Español a Latex

Re: Traductor de Español a Latex

¿Quién está conectado?