Foro - Perl en Español

por **explorer** » 2011-06-01 13:25 @601

El error indica que $celda1->{Val} no está definido.

Sí, $dbh contendrá el valor "undef".

La forma de comprobar si un valor está definido o no, es con defined():

if (defined $dhb) {

Hola, explorer. He introducido en mi código la línea que me has puesto en el post anterior y me dice lo siguiente:

DBI connect('host=localhost;database='abrir'...) failed:Unknown database 'abrir' a ConectarDB.pm line 25.

La línea 25 es donde le paso el usuario el pasword y la base de datos a usar, en este caso, "abrir".

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use DBI;
use ConectarDB;
 
my($dbh,$sth);
 
$dbh = ConectarDB->connect();
 
sub crear {
 
        $dbh->do("CREATE DATABASE abrir");
 
        $dbh->do("USE abrir");
 
        $dbh->do("CREATE TABLE palabras (palabra VARCHAR(30), id integer)");
 
}
 
if (defined $dbh) {
 
    eval { $dbh->do("DROP DATABASE abrir") };
 
    print "Dropping foo failed: $@\n" if $@;
 
        &crear();
}else{
 
        &crear();
 
}
 
$dbh->disconnect;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Lo que se supone que debe hacer es que si está definida la base de datos la elimine y la vuelva a crear con los nuevos datos y si no está definida que la cree. Pero el problema es que como no está creada la base de datos "abrir", al principio, me da ese error.

Otra pregunta: el caso es que la persona que lo va a utilizar tendrá un archivo Excel que es el que cargará en la base de datos pero cuando haya una palabra nueva la escribirá en el Excel y lo actualizará en la base de datos. En tu opinión ¿qué sería mejor, eliminar todo y volver a crearlo con los nuevos datos o ir comparando lo que hay en la base de datos con lo que contiene el archivo Excel y añadir las nuevas palabras? La pega que le veo al último caso es que en el caso de que el usuario elimine del archivo Excel alguna palabra que no quiera usar más, esa seguirá estando en la base de datos, ¿no? porque solo añade las nuevas palabras que encuentre en el Excel. No sé si me expliqué bien.

por **explorer** » 2011-06-02 07:47 @366

Yo nunca haría un DROP y un CREATE de una base de datos... es un proceso muy costoso para el motor de base de datos.

Lo que haría sería crear la base de datos, antes de nada, y luego, dentro del programa, en las tareas diarias, actualizar sus contenidos.

El error que te sale es, justamente, porque la base de datos no existe. Para capturar el error puedes usar eval(). Pero ya digo que esto no sería necesario si consideramos que la base de datos siempre a de estar presente.

Ahora bien... dices que el usuario está usando una hoja Excel... ¿por qué no usas la propia hoja Excel como base de datos? Puedes abrirla, leer las celdas... Te ahorras todo el proceso de transformarlo a base de datos. En cuanto el usuario actualice la hoja, y la suba al servidor, los cambios son instantáneos.

Yo suelo mucho esta solución, hoy en día, ya que a muchos usuarios les resulta muy sencillo el uso de la hoja, en lugar de lidiar con un formulario de base de datos.

por **Txemaracas** » 2011-06-02 08:04 @378

¡Buf!, entonces mejor no hacer el drop y el create, eso me quedó claro. Lo que más difícil me resulta es lo que dices de usar la hoja Excel como base de datos. ¿Lo que me intentas decir es que no almacene nada en base de datos? ¿Simplemente que cargue todos los días, o cada vez que abra el programa, la hoja de Excel? ¿Me podrías poner un pequeño ejemplo si no es mucho pedir, por favor?

Gracias.

por **explorer** » 2011-06-02 09:26 @434

En estos foros hay algunos hilos al respecto de usar Excel como una base de datos, o simplemente, abrirlo, desde un programa Perl. Usa el sistema de búsqueda, busca por Excel.

Era solo un consejo. Desde Perl se puede tener acceso al contenido de la hoja, por lo que entonces... ya tenemos hecha la base de datos, que el usuario actualiza cada vez que la cambia.

por **Txemaracas** » 2011-06-02 10:08 @464

¿Te refieres a este código que pusiste tu en un post?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

  my $BASE = ReadData($FICHERO_BASE, cells => 0, attr => 1);
    die "ERROR: Base de datos no encontrada" if not $BASE;
     
    my %HOJAS = %{$BASE->[0]->{sheet}};             # Relación hojas -> índices
     
    my $HOJA = $BASE->[ $HOJAS{$sector} ]->{cell};  # Referencia a la hoja $sector
     
    for (my $fila = 1; $HOJA->[$columna]->[$fila]; $fila++) {
        # Hacer algo con el contenido de la celda $HOJA->[$columna]->[$fila]
    }
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-06-02 13:31 @605

Esta es una forma, sí, pero hay más.

Desde luego, con Spreadsheet::Read se puede acceder de forma cómoda al contenido de las hojas.

por **Txemaracas** » 2011-06-02 16:19 @721

Ya, pero la verdad que llevo mirándome la documentación de Spreadsheet::Read bastante tiempo pero no saco tampoco mucho. Tu como eres más experimentado y sabes más de estos temas por eso te pedía consulta, pero muchas gracias, seguiré intentado y sino como último recurso, como tampoco tengo mucho tiempo para hacerlo, haré lo de drop y create que aunque sea poco eficiente al menos funcionará, je,je.

Gracias, explorer.

por **Txemaracas** » 2011-06-03 09:34 @440

Hola explorer. No quiero parecer pesado pero no consigo hacer que me capture cuando intenta conectar a la base de datos y no existe. Así la puedo crear después. No sé si uso bien eval() pero ¿podridas decirme cómo hacerlo para que me la creé cuando no existe?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

eval  {$dbh = ConectarDB->connect()};
 
print "No se ha  podido  conectar. Proceder a crearlo: $@\n" if $@;
 
&crear();
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-06-03 16:36 @733

Yo veo que el código está bien, excepto que siempre estás creando la base de datos (siempre llegas a crear()).

Sería algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $dbh;
 
eval  {
    $dbh = ConectarDB->connect()
};
 
if ($@) {
    print "No se ha  podido  conectar. Proceder a crearlo: $@\n" if ;
     
    &crear();
 
    # obtener aquí el $dbh a la nueva base de datos
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Aquí te pongo otra forma de crear la base de datos. Leyendo la documentación de DBD::mysql, resulta que se puede hacer de otras maneras:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use Modern::Perl;       # somos modernos
use utf8;               # este programa está escrito en utf8
use autodie;            # es mejor morir que regresar con deshonor (proverbio Klingon)
 
use DBI;
 
## Sacamos la lista de bases de datos presentes en el sistema
## La indicación de usuario y contraseña es vital, para que MySQL nos muestre las bases de datos según
## quién seamos (no todos los usuarios tienen acceso a todas las bases de datos)
my @databases = DBI->data_sources("mysql", {host => 'localhost', user => 'root', password => ''});
 
say "@databases";                                       # muestra bases de datos actuales
 
my $base_datos = 'nuestra_base_de_datos';               # esta es la que vamos a crear
 
my $dsn = "DBI:mysql:$base_datos";                      # conformamos el DSN de esa base de datos
 
unless ($dsn ~~ @databases) {                           # si el $dsn no está entre las @databases...
 
    my $drh = DBI->install_driver("mysql");             # Carga del controlador mysql
 
                                                        # Creamos la base de datos
    my $rc = $drh->func("createdb", $base_datos, 'localhost', 'root', '', 'admin');
 
    say "[$rc]";                                        # '1' si todo ha ido bien. '' si no.
}
else {
    say "La base de datos $base_datos ya está creada";
}
 
## Sacamos de nuevo la lista de bases de datos, para comprobar que se ha creado bien (o que ya existía)
@databases = DBI->data_sources("mysql", {host => 'localhost', user => 'root', password => ''});
 
say "@databases";
__END__
DBI:mysql:information_schema DBI:mysql:mysql DBI:mysql:test
[1]
DBI:mysql:information_schema DBI:mysql:mysql DBI:mysql:nuestra_base_de_datos DBI:mysql:test
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Aquí ves cómo se puede crear una base de datos, hablando directamente con el motor MySQL. También, de la misma manera, puedes destruir una base de datos, cambiando "createdb" por "dropdb".

Hay otra tercera forma que he encontrado. En MySQL se pueden usar las instrucciones "CREATE {DATABASE | SCHEMA} [IF NOT EXISTS] db_name" y "DROP {DATABASE | SCHEMA} [IF EXISTS] db_name".

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?