Conectar a una Base de Datos con Perl (2)

# 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;

Muy bien veamos con cuidado cada parte, la primera línea, como siempre es el path a nuestro intérprete de perl seguido de inmediato por una línea que dice package, esto es muy importante por que si quieres cambiar el nombre de tu módulo debes de cambiarlo en esta línea, pues esta línea debe de tener el nombre exacto del archivo. Si por ejemplo decides que vas a guardar tu módulo como MiModulo.pm entonces esta linea debería de verse algo así:

Es muy importante que cuides las mayúsculas de lo contrario no funcionaría.

Luego iniciamos el módulo DBI que es para la interface al database y el pragma strict, luego siguen las variables que debemos de editar dependiendo nuestro datos para accesar al database.

Ahora, hay una parte muy importante que debemos de checar bien que es la línea donde iniciamos la variable $q_string:

Checa que en este caso use "mysql" después de "DBI", esto lo debes de cambiar dependiendo del módulo DBD que uses, recuerda la lista que agregue anteriormente, es muy importante que pongas exactamante en nombre del DBD que estas usando de otra manera no va a funcionar. Digamos que usas el sistema de Oracle entonces sería "DBI:oracle".

La última línea que tiene el 1, nunca lo debes de quitar pues regresa un valor verdadero, necesario para que perl sepa que el módulo existe y funciona.

Ahora ya tenemos nuestro módulo vamos a pasar, ahora sí, a ver las funciones principales y cómo debemos de usar nuestro módulo.

Ejecutando

Muy bien, recuerda que primero debemos de llamar a nuestro módulo poniendo en el principio de tu script la línea:

Ya que tenemos cargado nuestro módulo vamos a ejecutar algun query en nuestro database, esto lo haríamos de manera muy sencilla:

1: my $campo = "perl";

2: my($dbh,$sth);
3: $dbh = ConectarDB->connect();
4: $sth = $dbh->prepare('INSERT INTO tabla campo = ?') or die("Couldn't prepare statement: " . $dbh->errstr);
5: $sth->execute($campo) or die("Couldn't execute statement: " . $sth->errstr);
6: $sth->finish;
7: $dbh->disconnect;

Usuarios que han visto este tema también han visto...

- Buscar en un array en Perl
- POP3 con Perl
- ¿Cómo enviar emails usando Perl y Sendmail?
- Usando el hash en Perl
- Conectar a una Base de Datos con Perl

- Versión imprimible de este documento
- Enviar por e-mail este documento