Foro - Perl en Español

por **explorer** » 2011-08-23 11:08 @505

Para que Spreadsheet::Read pueda leer un archivo externo, deberá saber el nombre completo de ese archivo (eso incluye su extensión).

En cuanto a la lectura de la base de datos, me parece que es un poco de gasto de recursos construir un estructura de datos en la que la mitad de la información son '1'.

Casi mejor devolver la lista de palabras, y que sea el resto del programa el que se encargue de manipularlas.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    sub datosBaseDatos {
            my ($conexion, $tabla) = @_;
            my @palabras_en_base_de_datos;
           
            my $sth = $conexion->prepare("SELECT * FROM $tabla")
                   or die("Couldn't prepare statement: " . $conexion->errstr)
                    ;
            $sth->execute()
                   or die("Couldn't execute statement: " . $sth->errstr)
                    ;
             
            while (my $ref = $sth->fetchrow_hashref()) {                   
                   push @palabras_en_base_de_datos, $ref->{'palabra'};  # Apuntamos la palabra en nuestro diccionario
            }
     
            $sth->finish();
           
            return @palabras_en_base_de_datos;
    }
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Tengo un problema y no sé porque pasa y ya pues llevo toda la mañana mirando y la verdad no se me ocurre nada que pueda estar mal puesto que lo he probado aparte, esta subrutina y me da los datos correctos. Cuando ejecuto el programa todo funciona correcto hasta que llega a la línea 58. Accedo a la subrutina pero no sé por qué no introduce los datos en el array. En la subrutina todo lo hace bien, me imprime el print() que dice que estoy antes del while() pero no me imprime el que dice que estoy dentro del while() con lo cual no sé cuál es el problema por el que no me introduce los datos. También puse un print() para que me sacase por pantalla ref->{'palabra'} pero no lo saca. No sé cual es el problema de que no entre o no haga el while().

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub datosBaseDatos {
        
        printf("estoy  en datosBaseDatos\n");
        my ($conexion, $tabla) = @_;
        my @palabras_en_base_de_datos;
               
        my $sth = $conexion->prepare("SELECT * FROM $tabla") or die("Couldn't prepare statement: " . $conexion->errstr);
        
        $sth->execute() or die("Couldn't execute statement: " . $sth->errstr);
        printf ("estoy antes del while\n");
        
        while (my $ref = $sth->fetchrow_hashref()) {
                
                printf ("estoy dentro del while\n");
                push @palabras_en_base_de_datos, $ref->{'palabra'};  # Apuntamos la palabra en nuestro diccionario
                
        }
         
        $sth->finish();
        
        print "@palabras_en_base_de_datos\n";      
        return @palabras_en_base_de_datos;
}
        
    &comprobarDB();                    # Llamada a subrutina CompararDB.
 
    my($conexion,$sth);                     # Decalaración de las  variables que utilizaremos a continuación.
 
    $conexion = ConectarDB->connect();      #  Conectamos con la  base de datos desde el paquete ConectarDB y lo dejamos en la variable $dbh.
 
    printf("estoy  en pasar excel a BASE\n");
   
    my $BASE = ReadData('test.xlsx', cells => 0, attr => 1);
 
    die "ERROR: Base de datos no encontrada" if not $BASE;
    
    my %HOJAS = reverse %{$BASE->[0]->{sheet}};
    
    my $sheets = $BASE->[0]->{sheets};              #Numero de hojas.
    
    my($fila_enc, $col_enc, $tabla);
    
    my @palabras_en_base_de_datos;
 
    foreach my $hoja (1..$sheets){
        
         print "Hoja ", $HOJAS{$hoja}, "\n";
         
         $tabla = $HOJAS{$hoja};
        
         &crearTabla($tabla, $conexion);
         
         @palabras_en_base_de_datos =  &datosBaseDatos($conexion, $tabla);
         
         print "@palabras_en_base_de_datos\n";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-08-24 09:19 @430

Si no sale el print() dentro del while(), es que no entra en el while(), y por lo tanto, no hay resultados desde la base de datos.

Una cosa importante: estás confundiendo print() y printf(). Por favor, algunas líneas están mál, como la 10, 14 y 34.

Recuerda que printf() lleva asociada una cadena de formato seguida por una lista de parámetros. En cambio, print() solo lleva la lista de parámetros a imprimir.

por **Txemaracas** » 2011-10-06 11:56 @539

Hola. He tenido que modificar el código de meter palabras y borrar palabras. Cuando, por ejemplo, en base datos, tengo:

-hola(español) -hello(ingles)

En Excel:

-otro(español) -hello(ingles)

lo que debería hacer es cambiarme el nombre en la base de datos también pero no lo hace. ¿Debería sustituir el array de @palabras_en_base_datos por una tabla hash? De esta manera tendría la palabra en inglés y la palabra en castellano a la hora de comparar y sustituir aunque en este caso debería hacer un modify en el SQL, ¿no?

por **Txemaracas** » 2011-11-29 11:43 @530

¿Alguien puede ayudarme con la pregunta que hice en el mensaje anterior? Es que necesito que me cambie el nombre de la palabra en español en caso de que se cambie en el Excel y no sé cómo hacerlo.

por **explorer** » 2011-11-29 15:53 @704

¿Con un UPDATE a la base de datos?

por **Txemaracas** » 2011-11-29 16:54 @745

Ya, pero ¿cómo compruebo si ha cambiado? Cuando estoy comparando si existe la palabra en inglés en la base de datos, si la palabra está quiero saber si tiene el mismo nombre en español pero no cómo hacerlo. He pensado en cambiar el array datos_en_base_datos por una tabla hash pero no sé cómo sacar la clave a una variable. ¿Cómo lo actualizo?

por **explorer** » 2011-11-29 17:16 @761

Pero si tienes toda la información, ¿no?

Buscas el término en la base de datos con un SELECT. Tienes el valor de las celdas en la hoja de cálculo. Entonces, solo queda hacer una comparación para saber si algo ha cambiado.

No sé... o no acabo de entender lo que quieres hacer o lo veo muy simple.

por **Txemaracas** » 2011-11-29 18:09 @798

A ver, intentaré explicarlo mejor.

Tengo un hash con las palabras en Excel y un array con las palabras en inglés que tengo metidas en la base de datos. Cuando importo otra vez la hoja Excel, mete las palabras en inglés como clave y la palabra en español como dato. En el array @base_de_datos meto las palabras en inglés que tengo en la base de datos. Comparo cada palabra en inglés de la base de datos en la hoja de Excel. Si no está la palabra la elimino de la base de datos. Si está, paso a la siguiente. Así todo el rato.

Pero lo que quiero es que cuando vea que está la palabra en la hoja Excel compare también la palabra en castellano por si ha cambiado.

No sé si lo he explicado mejor.

por **explorer** » 2011-11-29 18:23 @807

Bueno, pues se trata de sacar el valor correspondiente a una clave hash.

La clave es la palabra en inglés, que ya conocemos, así que si %base_de_datos contiene la correspondencia de inglés a español, $base_de_datos{$palabra_en_inglés} contiene la palabra en español. Solo queda comparar ese valor con el de la celda en Excel.

Foro - Perl en Español

Carga de información de Excel a base de datos

Re: Carga de información de Excel a base de datos

Publicidad

Re: Carga de información de Excel a base de datos

Re: Carga de información de Excel a base de datos

Re: Carga de información de Excel a base de datos

Re: Carga de información de Excel a base de datos

Re: Carga de información de Excel a base de datos

Re: Carga de información de Excel a base de datos

Re: Carga de información de Excel a base de datos

Re: Carga de información de Excel a base de datos

Re: Carga de información de Excel a base de datos

¿Quién está conectado?