Foro - Perl en Español

por **Hector Gutierrez** » 2011-04-29 13:04 @586

Estoy aprendiendo a manejar base de datos y para realizar mis pruebas hice lo siguiente:

1. Primero creé ConectarBD.pm

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
package ConectarDB;
use strict;
use DBI;
 
# VARIABLES A UTILIZAR
 
my $db_user   = "postgres";
my $db_pass   = "postgres";
my $host_name = "localhost";
my $db_name   = "sicre";
 
# DEFINICION DE LA CONEXION
 
my $q_string = "dbi:Pg:host=$host_name;database=$db_name";
 
sub connect{
return (DBI->connect ($q_string, $db_user, $db_pass,
{PrintError => 0, RaiseError => 1}));
}
1;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Después desarrollé

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
my($dbh,$sth);
 
$dbh = ConectarDB->connect();
 
$sth = $dbh->prepare('SELECT alffechanac FROM talumnado WHERE alanombre = ? AND alapaterno = ? AND alamaterno = ?') or die("Couldn't prepare statement: " . $dbh->errstr);
 
$sth->execute("REBECA","SANCHEZ","GONZALEZ") or die("Couldn't execute statement: " . $sth->errstr);
 
my $fecha = $sth->fetchrow_array();
 
print '\n $fecha';
 
$sth->finish;
$dbh->disconnect;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Al ejecutar mi programa me marca lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Can´t locate object method connect via package ConectarDB (perhaps you forgot to load ConectarBD?) at line 5Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Estoy utilizando Perl Express bajo Windows.

En el programa tienes esta línea:

$dbh = ConectarDB->connect();

donde estás indicando que estás llamando al método connect(), del módulo ConectartDB. Y si te fijas, en los paréntesis, no estás indicando ningún parámetro.

De la misma manera podrías pasarle como parámetros a connect(), los argumentos necesarios para hacer la conexión. Y en el módulo, leer los argumentos pasados.

Por ejemplo, en el módulo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub connect {
    my($db, $usuario, $passwd) = @_;
 
    return (DBI->connect ($db, $usuario, $passwd, {PrintError => 0, RaiseError => 1}));
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y luego en el programa

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$dbh = ConectarDB->connect("dbi:Pg:host=localhost;database=basedatos", "postgres", "postgres");
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

de ti depende qué argumentos quieres pasar.

por **Hector Gutierrez** » 2011-04-29 17:51 @785

Gracias, adicionalmente creé una base de datos en PostgreSQL de salida llamada DePaso que tiene una tabla llamada TBSalida y tiene los siguientes campos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

  llave integer NOT NULL,              -- llave de la tabla

  alumnonombre character varying(60),  -- Nombre del alumno

  alumnopaterno character varying(60), -- apellido paterno

  alumnomaterno character varying(60), -- apellido materno

  "fechaNac" date                      -- fecha de nacimientoColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Utilizo procedimientos en pm, éstos son (el primero me sirve para leer los datos y el segundo para guardar datos):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#-----Para leer datos
#!/usr/bin/perl
package ConectarDB;
use strict;
use DBI;
 
# VARIABLES A UTILIZAR
 
my $db_user   = "postgres";
my $db_pass   = "postgres";
my $host_name = "localhost";
my $db_name   = "sicre";
 
# DEFINICION DE LA CONEXION
 
my $q_string = "dbi:Pg:host=$host_name;database=$db_name";
 
sub connect{
return (DBI->connect ($q_string, $db_user, $db_pass,
{PrintError => 0, RaiseError => 1}));
}
1;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#-------------Para guardar datos
#!/usr/bin/perl
package ConectarDBs;
use strict;
use DBI;
 
# VARIABLES A UTILIZAR
 
my $db_users   = "postgres";
my $db_passs   = "postgres";
my $host_names = "localhost";
my $db_names   = "DePaso";
 
# DEFINICION DE LA CONEXION
 
my $q_string = "dbi:Pg:host=$host_names;database=$db_names";
 
sub connects{
return (DBI->connect ($q_string, $db_users, $db_passs,
{PrintError => 0, RaiseError => 1}));
}
1;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y el programa que lee y guarda información es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use ConectarDB;
use ConectarDBs;
 
my ($dbhs,$sths);
my ($dbh,$sth,@datos_personales);
my $cuenta=1;
 
#-------------- Conexion a las base de datos
 
$dbh  = ConectarDB->connect();
$dbhs = ConectarDBs->connects();
 
#-------------- Preparacion de la extraccion de informacion
 
$sth = $dbh->prepare('SELECT alffechanac, alanombre, alapaterno, alamaterno FROM talumnado WHERE alanombre like ?') or die("Couldn't prepare statement: " . $dbh->errstr);
$sth->execute("REB%") or die("Couldn't execute statement: " . $sth->errstr);
 
#------------- Preparacion del INSERT de datos a la nueva tabla
 
my $prepara_insert = 'insert into TBSalida(llave,fechaNac,alumnonombre,alumnopaterno,alumnomaterno) values (?,?,?,?,?);';
$sths = $dbhs->prepare($prepara_insert);
 
print "hasta aqui pase correctamente\n";
 
while(@datos_personales = $sth->fetchrow_array()){
        print "$cuenta $datos_personales[0] $datos_personales[1] $datos_personales[2] $datos_personales[3]\n";
        $sths->execute("$cuenta","$datos_personales[0]","$datos_personales[1]","$datos_personales[2]","$datos_personales[3]");
        $cuenta +=1;
}
$sth->finish;
$dbh->disconnect;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Al ejecutar el programa me marca error en la línea donde ejecuto el INSERT; me dice:

DBD::Pg::st execute failed: ERROR: relation 'tbsalida' doesn´t exist al line 29, que es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$sths->execute("$cuenta","$datos_personales[0]","$datos_personales[1]","$datos_personales[2]","$datos_personales[3]");
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

No encuentro qué me falta.

por **explorer** » 2011-04-29 18:39 @818

El error dice que no existe la tabla TBSalida en la base de datos de destino.

Otra cosa... Si te fijas un poco... verás que los dos módulos Conecta... son el mismo... variando solo los argumentos de conexión... ergo... estás repitiendo código: con solo un módulo lo podrías resolver.

por **Hector Gutierrez** » 2011-04-29 19:36 @858

Dejé solo un archivo pm de esta forma:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
package ConectarDB;
use strict;
use DBI;
 
# VARIABLES A UTILIZAR
 
my $db_user   = "postgres";
my $db_pass   = "postgres";
my $host_name = "localhost";
my $db_name   = "sicre";
my $db_names  = "DePaso";
 
# DEFINICION DE LA CONEXION
 
my $q_string  = "dbi:Pg:host=$host_name;database=$db_name";
my $q_strings = "dbi:Pg:host=$host_name;database=$db_names";
 
sub connect{
return (DBI->connect ($q_string, $db_user, $db_pass,
{PrintError => 0, RaiseError => 1}));
}
sub connects{
return (DBI->connect ($q_strings, $db_user, $db_pass,
{PrintError => 0, RaiseError => 1}));
}
1;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y el programa quedo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use ConectarDB;
 
my ($dbhs,$sths);
my ($dbh,$sth,@datos_personales);
my ($sfecha,$snombre,$spaterno,$smaterno);
my $cuenta=1;
 
#-------------- Conexion a las base de datos
 
$dbh  = ConectarDB->connect();
$dbhs = ConectarDB->connects();
 
#-------------- Preparacion de la extraccion de informacion
 
$sth = $dbh->prepare('SELECT alffechanac, alanombre, alapaterno, alamaterno FROM talumnado WHERE alanombre like ?') or die("Couldn't prepare statement: " . $dbh->errstr);
$sth->execute("REB%") or die("Couldn't execute statement: " . $sth->errstr);
 
#------------- Preparacion del INSERT de datos a la nueva tabla
 
my $prepara_insert = 'insert into tbdatos(llave,fechanac,alumnonombre,alumnopaterno,alumnomaterno) values (?,?,?,?,?);';
$sths = $dbhs->prepare($prepara_insert);
 
print "hasta aqui pase correctamente\n";
 
while(@datos_personales = $sth->fetchrow_array()){
        print "$cuenta $datos_personales[0] $datos_personales[1] $datos_personales[2] $datos_personales[3]\n";
        $sfecha    = $datos_personales[0];
        $snombre   = $datos_personales[1];
        $spaterno  = $datos_personales[2];
        $smaterno   = $datos_personales[3];
#------ $sths->execute("$cuenta","$datos_personales[0]","$datos_personales[1]","$datos_personales[2]","$datos_personales[3]");
        $sths->execute("$cuenta","$sfecha","$snombre","$spaterno","$smaterno");
 
        $cuenta +=1;
}
$sth->finish;
$sths->finish;
$dbh->disconnect;
$dbhs->disconnect;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

y todo funcionó correctamente. Gracias.

por **explorer** » 2011-04-30 05:25 @267

Creo que no le has pillado el truco...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
#
# Módulo que conecta con la base de datos
package ConectarDB;
use strict;
use DBI;
 
sub connect {
    my ($q_string, $db_user, $db_pass) = @_;
 
    return (
        DBI->connect(
            $q_string, $db_user, $db_pass,
            { PrintError => 0, RaiseError => 1 }
        )
    );
}
 
1;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
#
# Programa principal 
use ConectarDB;
 
# VARIABLES A UTILIZAR
my $db_user   = "postgres";
my $db_pass   = "postgres";
my $host_name = "localhost";
my $db_name   = "sicre";
my $db_names  = "DePaso";
 
# DEFINICION DE LA CONEXIÓN
my $q_string  = "dbi:Pg:host=$host_name;database=$db_name";
my $q_strings = "dbi:Pg:host=$host_name;database=$db_names";
 
 
my ($dbhs,$sths);
my ($dbh,$sth,@datos_personales);
my ($sfecha,$snombre,$spaterno,$smaterno);
my $cuenta = 1;
 
#-------------- Conexión a las base de datos
$dbh  = ConectarDB->connect($q_string,  $db_user, $db_pass);
$dbhs = ConectarDB->connect($q_strings, $db_user, $db_pass);
 
#-------------- Preparacion de la extraccion de informacion
$sth
    = $dbh->prepare('SELECT alffechanac, alanombre, alapaterno, alamaterno FROM talumnado WHERE alanombre like ?')
    or die("Couldn't prepare statement: " . $dbh->errstr);
 
$sth->execute("REB%")
    or die("Couldn't execute statement: " . $sth->errstr);
 
#------------- Preparacion del INSERT de datos a la nueva tabla
my $prepara_insert
    = 'insert into tbdatos(llave,fechanac,alumnonombre,alumnopaterno,alumnomaterno) values (?,?,?,?,?);';
 
$sths = $dbhs->prepare($prepara_insert);
 
#------------- Copia de los usuarios
while(@datos_personales = $sth->fetchrow_array()){
    print "$cuenta @datos_personales\n";
    $sfecha    = $datos_personales[0];
    $snombre   = $datos_personales[1];
    $spaterno  = $datos_personales[2];
    $smaterno  = $datos_personales[3];
 
#------ $sths->execute($cuenta, @datos_personales);
    $sths->execute($cuenta, $sfecha, $snombre, $spaterno, $smaterno);
 
    $cuenta++;
}
 
$sth->finish;
$sths->finish;
$dbh->disconnect;
$dbhs->disconnect;
 
print "$cuenta registros pasados\n";
 
__END__
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **Hector Gutierrez** » 2011-04-30 11:18 @512

Gracias, ya tenía contemplado el paso de argumentos para darle mayor fuerza y lo que estoy trabajando es generar una herramienta que me permita tomar información de diversas bases de datos (Oracle, SQL Server, PostgreSQL), hojas de Excel y archivos de texto y crear una base de datos que haga converger lo anterior. El siguiente paso es graficación, hasta fabricar un generador de pantallas.

Cualquier duda que tenga te molestaré sobre el tema en particular, saludos.

Foro - Perl en Español

Conexión a base de datos a través de un pm

Conexión a base de datos a través de un pm

Publicidad

Re: Conexión a base de datos a través de un pm

Re: Conexión a base de datos a través de un pm

Re: Conexión a base de datos a través de un pm

Re: Conexión a base de datos a través de un pm

Re: Conexión a base de datos a través de un pm

Re: Conexión a base de datos a través de un pm

Re: Conexión a base de datos a través de un pm

Re: Conexión a base de datos a través de un pm

Re: Conexión a base de datos a través de un pm

¿Quién está conectado?