MySQL en Perl

[z24charly]

Hola a todos.

Necesito manejar bases de datos en aplicaciones que ya había desarrollado en Perl, el problema es que no tengo idea de como enlazar bases de datos MySQL en Perl, alguien sabe que tengo que hacer, que instrucciones necesito o si hay algún manual en línea para hacer esta operación

De antemano Gracias a todos.

Un saludo

[dix10]

#Datos para la conexion con la bd.
$u = "tuusuario";
$p = "tupassword";

#Conectamos a la BD

$dbh = DBI -> connect("dbi:mysql:tubd:localhost",$u,$p) || die "No puedo conectar";

#cargamos a una variable la consulta
$select_categ = qq|SELECT categ_id,categ_productos FROM categorias WHERE categ_comparar >="1"|;

#Preparamos la consulta
$sth = $dbh -> prepare(qq{$select_categ});

#Ejecutamos la ocnsulta
$sth ->execute();

($datos) = $sth->fetchrow_array();


Fijate en google que hay mucha doc sobre este tema

Saludos

[SpiceMan]

faltaría decir que tenes que tener los modulos DBI y DBD::MySQL (en caso de ser perl 5.6.0 o inferior). Si no me equivoco ya vienen incluidos en el perl 5.8 y -obviamente- cargar el modulo:

Use DBI;

al hacer $db = DBI->connect (blablabla)

automaticamente el modulo DBI se encarga de usar el DBD::MySQL por lo que no hace falta llamarlo.