Como utilizar MySQL con Perl

MySQL es la base de datos Open Source más popular y extendida, además se puede utilizar con muchos lenguajes, no solo con PHP, veremos que con Perl también es posible.

Para conectar a MySQL desde perl utilizaremos el módulo DBI. Primero conectaremos a la base de datos con el método connect, ejecutaremos una consulta con los métodos prepare y execute y por último leeremos los datos con los métodos bind_colums y fetch.

Este es el ejemplo:

#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);

print "Content-type: text/htmlnn";

use DBI;

#Datos de la conexión
$db="prueba";
$host="localhost";
$port="3306";
$userid="root";
$passwd="";
$connectionInfo="DBI:mysql:database=$db;$host:$port";

# Realizamos la conexión a la base de datos
$dbh = DBI->connect($connectionInfo,$userid,$passwd);

/* Suponiendo que en nuestra base de datos "prueba" existe una tabla con nombre "lenguajes" y los campos "nombre"
y "descripción" ejecutaremos esta sentencia SQL */

#Sentencia SQL
$query = "SELECT nombre,descripcion FROM lenguajes";

# Primero hay que "preparar" el query
$sth = $dbh->prepare($query);

# Ejecutamos el query
$sth->execute();

/* El primer parámetro lo dejaremos como undef. En los demás parámetros debemos pasar por referencia las variables que corresponden a cada campo, en el orden en el que aparecen en el query */
$sth->bind_columns(undef, $nombre, $descripcion);

print "Resultados<p>";

# Recorremos los resultados obtenidos de la base de datos
while($sth->fetch()) {

print "$nombre - $descripcion<br>";

}

# Indicamos que hemos acabado y desconectamos
$sth->finish();
$dbh->disconnect;

Por Alex.
Director Técnico de WebTaller.

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

- ¿Cómo enviar emails usando Perl y Sendmail?
- Crear un contador de accesos a un sitio web en Perl
- Generar código HTML
- Contador de visitas con Perl
- Funcionesde Perl

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