#!/usr/bin/perl -w
$|=1;
# Utilizamos el módulo DBI para PostgreSQL
use DBI;
# Código para html
print "Content-type: text/html\n\n";
print "";
print "";
print "Prueba de Postgres y perl con DBI y DBD-Pg";
print "";
print "";
print "Database de Soporte Internet Cancun.
";
# Parámetros para abrir la base de datos
$dbdato = 'intercun';
$dbuser = '';
$dbpass = '';
# Nos conectamos a la base de datos
$conn = DBI->connect('dbi:Pg:dbname=intercun') or die $DBI::errstr;
# Sentencia SQL para hacer la consulta.
$sql = "SELECT id_usuario, nombre FROM clientes WHERE nombre='Carlos'";
# Más de html
print "Sentencia SQL:";
print "$sql
";
print "";
# Los resultados estarán en una tabla
print "";
#print "| Listado de la Tabla Clientes | ";
print "| id_usuario | nombre |
|---|
";
# Hacemos la consulta, en $resultado vienen todos los datos que nos interesan
$resultado = $conn->prepare($sql) or die $DBI::errstr;
$resultado->execute;
# Cantidad de renglones o registros
$ntuplas = $resultado->rows;
# Cantidad de columnas o campos
$ncampos = $resultado->{NUM_OF_FIELDS};
# $ncampos = 2;
# Recuperamos los datos
# Primero renglón por renglón...
for $r (0 .. ($ntuplas - 1)) {
@arenglon = $resultado->fetchrow();
print "";
# Luego columna por columna...
for $c (0 .. ($ncampos - 1)) {
print "| $arenglon[$c]\t | ";
}
print "
";
}
print "
";
print "";
print "";
# Desconectamos la base de datos
$conn->disconnect;
# Fin del Cgi