Tema: Perl y Mysql
Ver Mensaje Individual
  #8 (permalink)  
Antiguo 17/04/2009, 00:19
nelsonv
 
Fecha de Ingreso: noviembre-2008
Mensajes: 58
Antigüedad: 16 años
Puntos: 0
Respuesta: Perl y Mysql

Cita:
Iniciado por jferrero Ver Mensaje
En cuanto a la extensión que debes de poner, dependerá de la configuración del servidor web Apache que estés usando. Prueba con .cgi. Y si no, con .pl.

Para llamarlo desde el navegador, usa: http://localhost/cgi-bin/tu-programa-perl.cgi
Nuevamente molestandote. Tengo ete codigo q esta en un archivo dentro de cgi-bin se llama prueba.cgi, pero no se q me falta mi Base se llama prueba y si tiene datos dentro de la tabla pero al momento de ejecutar me sale error. el error es similar al q mensione anteriormente.

#!/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"; //En phpMyAdmin me pide un usuario y password, los mios son root y vlady
$passwd="vlady";
$connectionInfo="DBI:mysql:database=$db;$host:";

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