Foro - Perl en Español

por **jcarranza** » 2010-05-25 00:41 @070

¡Hola!

Mi pregunta es la siguiente: ¿cómo diseñar y construir una aplicación orientada a objetos que implementa un motor de acceso a datos distribuido en Perl?

¡¡¡Saludos!!!

La funcionalidad de la distribución de datos la da el propio motor de la base de datos.

Aunque se puede construir una base de datos con Perl, es recomendable usar alguno de los motores más conocidos, como MySQL o PostGreSQL, por ejemplo.

Lo que sí se puede realizar en Perl es una aplicación orientada a objetos. El más utilizado hoy en día es el que te lo ofrece la distribución DBIx::Class.

por **jcarranza** » 2010-05-25 09:57 @456

Por ejemplo, construir una clase para conectar a una base de datos con DBI:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
package ConectarDB; 
use strict;
use DBI;
# variables a editar
my $db_user = "usuario_database";
my $db_pass = "pwd_database";
my $host_name = "host_database";
my $db_name = "nombre_database";
# vars
 
my $q_string = "DBI:mysql: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

Y la llamaría, por ejemplo, así desde otro script Perl:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my($dbh,$sth); 
 
$dbh = ConectarDB->connect();
 
$sth = $dbh->prepare('SELECT fecha FROM table WHERE nombre = ? AND apellido = ?') or die("Couldn't prepare statement: " . $dbh->errstr);
$sth->execute("Jorge","Luis") or die("Couldn't execute statement: " . $sth->errstr);
my $fecha = $sth->fetchrow_array();
$sth->finish;
$dbh->disconnect;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿¿Sería algo así??

por **explorer** » 2010-05-25 10:21 @473

A ver si nos aclaramos...

Una cosa es un motor de base de datos. Otra cosa es un lenguaje que permite una programación siguiendo el paradigma de lo orientado a objetos. Otra cosa es que queramos usar ese paradigma para dialogar con el motor de la base de datos. Otra cosa es que en la base de datos guardemos objetos. Y otra cosa es que la relación entre el programa y la base de datos la hagamos con una capa de objetos que encapsule la complejidad de las relaciones entre las tablas (que es el caso de DBIx::Class).

¿Qué es entonces lo que deseas hacer?

Los ejemplos que has puesto se refieren a usar el paradigma de la orientación a objetos para dialogar con el motor de la base de datos.

por **jcarranza** » 2010-05-26 12:15 @552

Exactamente, me refería a dialogar con el motor MySQL.

Tengo una rutina que me conecta.

Ahora, ¿cómo sería una rutina para insertar registros, otra para borrar registros y otra para modificar registros?

¡¡¡Saludos!!!

por **jcarranza** » 2010-06-02 01:49 @117

¿La rutina para listar sería algo así?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub listar{
my$sql=shift;# recogemos la consulta pasada como referencia.
return($dbh->prepare('$sql')ordie("error"));
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

La llamaría así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$consulta="Select * from usuarios order by nombre";
$sth=ConectarDB->listar($consulta);
$sth=execute();Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2010-06-02 03:42 @196

Parece que sí... ¿lo has probado?

por **jcarranza** » 2010-06-02 05:02 @251

no lo he probado pero tiene toda la pinta de que sí.

Pero no me gusta ya que esta rutina sirve para insertar, borrar y modificar con tan solo variar la consulta que le pasamos. Lo ideal sería tener una rutina exclusiva para, por ejemplo, listar, solamente. Y he pensado en algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub listar{
my $sql= shift; #recogemos la consulta pasada como referencia.
my $sth=$dbh->prepare('$sql') or die("error");
$sth->execute();
 
        while (my @data = $sth->fetchrow_array())
        {
                return (print "Nombre: @data[1] - (email: @data[2]) Tel: @data[3] \n");
        }
$sth->finish();
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿detectas algún problema?

saludos!!

por **explorer** » 2010-06-02 05:08 @255

El error que veo es el de referirte a los elementos del array como subconjuntos de array. En lugar de @data[1] hay que escribirlo como $data[1]. Y lo mismo para el 2 y el 3.

No sé si habrá algún error más, porque entonces tendría que ejecutarlo. Pero mejor que lo hagas tu, ¿no?

por **jcarranza** » 2010-06-02 05:15 @260

¡¡Estoy en ello!!

Gracias por tu ayuda... ¡¡¡ya te contaré!!

Foro - Perl en Español

Motor de base de datos distribuido

Motor de base de datos distribuido

Publicidad

Re: Motor de base de datos distribuido

Re: Motor de base de datos distribuido

Re: Motor de base de datos distribuido

Re: Motor de base de datos distribuido

Re: Motor de base de datos distribuido

Re: Motor de base de datos distribuido

Re: Motor de base de datos distribuido

Re: Motor de base de datos distribuido

Re: Motor de base de datos distribuido

¿Quién está conectado?